probeDataset <- function (es, indices) {
response <- list()
response[['dims']] <- dim(exprs(es))
response[['fvarLabels']] <- colnames(fData(es))
response[['probe']] <- exprs(es)[indices]
jsonlite::toJSON(response)
}
probeDataset <- function (es, indices) {
response <- list()
response[['dims']] <- dim(exprs(es))
response[['fvarLabels']] <- colnames(fData(es))
response[['probe']] <- exprs(es)[indices]
jsonlite::toJSON(response)
}