swh:1:snp:da7139cd4da02bec94bc08ca2c24ef3b054abc2b
Tip revision: d5d3a2a453d193538955965af54d20d0c8b9f72c authored by Alexey Sergushichev on 02 February 2019, 13:32:57 UTC
version bump + fixes for biocheck warnings
version bump + fixes for biocheck warnings
Tip revision: d5d3a2a
probeDataset.R
probeDataset <- function (es, query) {
exprsIndices <- query$exprs;
fDataQuery <- query$fData;
response <- list()
response[['dims']] <- dim(exprs(es))
response[['fvarLabels']] <- colnames(fData(es))
response[['probe']] <- exprs(es)[exprsIndices]
response[['fdata']] <- list()
if (!is.null(nrow(fDataQuery))) {
for(i in seq_len(nrow(fDataQuery))) {
row <- fDataQuery[i,]
response[['fdata']][[row$name]] <- fData(es)[[row$name]][row$indices[[1]]]
}
}
jsonlite::toJSON(response)
}