Get single cell expression from GatingSet object

gs.R

...
sample.names <- sampleNames(gs.trans)
gs.exp.df <- data.table()
for (sample in sample.names) {
    message(sprintf("Processing: %s", sample))
    df <- gs_get_singlecell_expression(gs.trans, c("P1"),
        threshold = FALSE, marginal = FALSE, inverse.transform = TRUE,
        other.markers = c("SSC-A", "FL1-A", "FL5-A")
    )[[sample]] %>%
        data.table() %>%
        mutate(sample = sample)
    gs.exp.df <- rbindlist(list(gs.exp.df, df))
}
sample.meta <- cyto_details(gs.trans)
exp.df <- merge(gs.exp.df, sample.meta, by.x = "sample", by.y = "name")