hooking up tidySE to plyxp, example case

hookup-tidySE-plyxp

library(tidySummarizedExperiment)
library(plyxp)

nfeat <- 1e4
nsamp <- 1e3
coldata <- data.frame(x=rep(1:2,length=nsamp))
assay <- matrix(rnorm(nfeat*nsamp), ncol=nsamp)
rownames(assay) <- paste0("f",1:nfeat)
colnames(assay) <- paste0("s",1:nsamp)

se <- SummarizedExperiment(list(data=assay), colData=coldata)

system.time({
  new_se <- se |>
    mutate(newdata = data * x)
})

system.time({
  new_se2 <- se |>
    new_plyxp() |>
    mutate(newdata = data * .cols$x) |>
    se()
})

all.equal(assay(new_se), assay(new_se2))