swh:1:snp:0c004a03453a29b80f921a24433f7e780b9ceb53
Raw File
Tip revision: 1ddbe2f99ea983d4d491c331e960885eeee8a2ec authored by Alexey Sergushichev on 17 December 2018, 21:32:23 UTC
slack notification
Tip revision: 1ddbe2f
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 seq_len(nrow(fDataQuery))) {
        row <- fDataQuery[i,]
        response[['fdata']][[row$name]] <- fData(es)[[row$name]][row$indices[[1]]]
    }

    jsonlite::toJSON(response)
}
back to top