Revision 1366c314de676f59a1c23ed7665dec7413e0c1c2 authored by Alexey Sergushichev on 11 September 2018, 14:58:16 UTC, committed by Alexey Sergushichev on 11 September 2018, 14:58:16 UTC
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()
for(i in 1:nrow(fDataQuery)) {
row <- fDataQuery[i,]
response[['fdata']][[row$name]] <- fData(es)[[row$name]][row$indices[[1]]]
}
jsonlite::toJSON(response)
}
Computing file changes ...
