Fix gene signature querying

openbiox · Nov 16, 2021 · 6256500 · 6256500
1 parent a21a668
commit 6256500
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/query_value.R b/R/query_value.R
@@ -107,7 +107,10 @@ query_pancan_value <- function(molecule,
     message("IDs include ", paste(ids, collapse = ", "))
     tryCatch(
       {
-        values <- purrr::map(ids, ~ query_value(., data_type, database, ...))
+        values <- lapply(ids, function(x) {
+          query_value(x, data_type, database, ...)
+        })
+        #values <- purrr::map(ids, ~ query_value(., data_type, database, ...))
         unit <- if (is.list(values[[1]]) && length(values[[1]]) > 1) values[[1]][[2]] else NULL
         if (is.null(unit)) {
           df <- as.data.frame(values %>% purrr::set_names(ids))