avoiding largeList error

Cristianetaniguti · Dec 4, 2023 · 9eb362d · 9eb362d
1 parent 5b397b7
commit 9eb362d
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/R/graphics_simu.R b/R/graphics_simu.R
@@ -23,9 +23,12 @@ prepare_datas_simu <- function(x=NULL, example_simu=NULL){
     }
   }
 
+  is_largeList_available <- require("largeList")
+  is_GUSMap_available <- require("GUSMap")
+
   if(data.gz == "Wait"){
     cat("Waiting...\n")
-  } else {
+  } else if(is_largeList_available & is_GUSMap_available){
 
     list_files <- list()
     for(i in 1:length(data.gz)){
@@ -132,6 +135,12 @@ prepare_datas_simu <- function(x=NULL, example_simu=NULL){
     system(paste("rm -r", paste(for_rm, collapse = " ")))
 
     result_list
+  } else {
+    cat("Install LargeList:\n devtools::install_github('Yuchun-Zhang/R_largeList', ref = 'v0.3.1', subdir = 'largeList') \n 
+        and GUSMap: \n
+        devtools::install_github('tpbilton/GUSbase', ref = '92119b9c57faa7abeede8236d24a4a8e85fb3df7') \n
+        devtools::install_github('tpbilton/GUSMap@4d7d4057049819d045750d760a45976c8f30dac6') \n
+        packages to visualize these results.")
   }
 }
 

diff --git a/R/mod_emp_maps.R b/R/mod_emp_maps.R
@@ -91,8 +91,7 @@ mod_emp_maps_server <- function(input, output, session, datas_emp){
 
       stop_bam(input$CountsFrom, input$ErrorProb)
       incProgress(0.25, detail = paste("Doing part", 2))
-      print(head(datas_emp()[[2]]))
-
+
       data <- datas_emp()[[2]] %>% filter(GenoCall %in% input$ErrorProb) %>%
         filter(SNPCall %in% input$SNPCall) %>%
         filter(CountsFrom == input$CountsFrom)