Skip to main content

Browse the archive

https://github.com/ctlab/phantasus
21 July 2021, 18:39:27 UTC
Revision 3060d2b3ea45059741f3612cf8273a125315b3ac authored by Nitesh Turaga on 27 October 2020, 15:33:27 UTC, committed by Nitesh Turaga on 27 October 2020, 15:33:27 UTC 
bump x.y.z version to odd y following creation of RELEASE_3_12 branch
1 parent efcdf05
Raw File
Tip revision: 3060d2b3ea45059741f3612cf8273a125315b3ac authored by Nitesh Turaga on 27 October 2020, 15:33:27 UTC
bump x.y.z version to odd y following creation of RELEASE_3_12 branch
Tip revision: 3060d2b
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)
}
back to top