From 2d100db102054fcf35dba59ee8282cc216e95099 Mon Sep 17 00:00:00 2001 From: cristianetaniguti Date: Sun, 7 Jan 2024 14:50:49 -0600 Subject: [PATCH] fix read 2 --- Dockerfile | 2 +- R/graphics_emp.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Dockerfile b/Dockerfile index d6c18f7..d2ea398 100644 --- 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()"] \ No newline at end of file diff --git a/R/graphics_emp.R b/R/graphics_emp.R index 2f640d2..6bc3c90 100644 --- 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){