Skip to main content

Browse the archive

https://github.com/ctlab/phantasus
21 September 2022, 08:00:11 UTC
Revision 7ccb9f0e4bbd35e21a53d5f8ec2f0019a12db6a3 authored by petrovich on 31 August 2018, 01:43:13 UTC, committed by petrovich on 31 August 2018, 01:43:13 UTC 
Update JS. Adjust mirroring disabled in datasets without session
1 parent 93dc3bd
Raw File
Tip revision: 7ccb9f0e4bbd35e21a53d5f8ec2f0019a12db6a3 authored by petrovich on 31 August 2018, 01:43:13 UTC
Update JS. Adjust mirroring disabled in datasets without session
Tip revision: 7ccb9f0
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)
}
back to top