Addition from amelie baud: unlist(lapply()) -> vapply

rqtl · Nov 17, 2021 · 39ee853 · 39ee853
1 parent ee574f6
commit 39ee853
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/query_gn.R b/R/query_gn.R
@@ -12,8 +12,9 @@ query_gn <-
     result <- httr::GET(url)
     httr::stop_for_status(result)
     result <- httr::content(result, encoding=encoding, as=output)
-    result[unlist(lapply(result, is.null))] = NA
-
+
+    result[vapply(result, is.null, TRUE)] <- NA  # added to avoid having as.data.frame(result) crash
+
     check_gn_error(result)
 }