fix read 2

Cristianetaniguti · Jan 7, 2024 · 2d100db · 2d100db
1 parent 3c9ffcd
commit 2d100db
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Dockerfile b/Dockerfile
@@ -32,7 +32,7 @@ RUN Rscript -e 'remotes::install_github("Yuchun-Zhang/R_largeList", ref = "v0.3.
 RUN apt-get update && apt-get install -y libtcl libtk
 
 RUN Rscript -e 'remotes::install_github("mmollina/mappoly")'
-RUN Rscript -e 'remotes::install_github("Cristianetaniguti/Reads2MapApp")'
+RUN Rscript -e 'remotes::install_github("Cristianetaniguti/Reads2MapApp" )'
 
 EXPOSE 80
 CMD  ["R", "-e", "options('shiny.port'=80,shiny.host='0.0.0.0');Reads2MapApp::run_app()"]
diff --git a/R/graphics_emp.R b/R/graphics_emp.R
@@ -54,13 +54,13 @@ prepare_datas_emp <- function(x = NULL, example_emp = NULL){
       temp_dat <- list()
       idx <- grep("sequences",datas)[-1]
       for(i in 1:length(idx)){
-        temp_dat[[i]] <- readRDS(datas[[idx[i]]])
+        temp_dat[[i]] <- readRDS(gsub("/$", "", datas[[idx[i]]]))
       }
       names_rdatas <- basename(unlist(datas[idx]))
     } else {
       ext <- sapply(strsplit(basename(datas[[grep("sequences",datas)]]), "[.]"),  function(x) x[length(x)])
       if(ext == "llo")  temp_dat <- largeList::readList(datas[[grep("sequences",datas)]]) else
-        temp_dat <- readRDS(datas[[grep("sequences",datas)]])
+        temp_dat <- readRDS(gsub("/$", "", datas[[grep("sequences",datas)]]))
       names_rdatas <- vroom(datas[[grep("names.tsv.gz", datas)]], delim = "\t", show_col_types = FALSE)
       names_rdatas <- as.data.frame(names_rdatas)[,1]
       if(length(grep("gusmap", names_rdatas)) > 0){