https://github.com/ctlab/phantasus
Tip revision: ccd60dd2a6b9a1f1bf827ba063afa86467c3b495 authored by J Wokaty on 24 October 2023, 15:03:44 UTC
bump x.y.z version to even y prior to creation of RELEASE_3_18 branch
bump x.y.z version to even y prior to creation of RELEASE_3_18 branch
Tip revision: ccd60dd
probeDataset.R
probeDataset <- function (es, query) {
exprsIndices <- query$exprs;
fDataQuery <- query$fData;
pDataQuery <- query$pData;
response <- list()
response[['dims']] <- dim(exprs(es))
response[['fvarLabels']] <- colnames(fData(es))
response[['varLabels']] <- colnames(pData(es))
response[['probe']] <- exprs(es)[exprsIndices]
response[['fdata']] <- list()
response[['pdata']] <- 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]]]
}
}
if (!is.null(nrow(pDataQuery))) {
for(i in seq_len(nrow(pDataQuery))) {
row <- pDataQuery[i,]
response[['pdata']][[row$name]] <- pData(es)[[row$name]][row$indices[[1]]]
}
}
jsonlite::toJSON(response)
}