up

Dockerfile

@@ -32,7 +32,8 @@ 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", ref = "5ef4c306fcf7425138592807eae806feb54cd08b")'
+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()"]
+

R/graphics_emp.R

@@ -49,6 +49,8 @@ prepare_datas_emp <- function(x = NULL, example_emp = NULL){
     software <- "onemap"
     for_rm <- sapply(list_files, "[", -grep("sequences",datas))
 
+    datas <- lapply(datas,function(x) gsub("/$", "", x))
+
     # Support to several versions
     if(length(grep("sequences",datas)) > 1){
       temp_dat <- list()
@@ -277,4 +279,3 @@ SNPCalling_efficiency_graph_emp <- function(data, data_names){
     scale_color_grey() + scale_fill_viridis_c() + theme_bw() + coord_sf(clip = "off") 
 }
 
-

R/graphics_poly_emp.R

@@ -46,6 +46,8 @@ prepare_poly_datas_emp <- function(x = NULL, example_emp = NULL){
       datas[[i]] <- sapply(list_files, "[", i)
     }
 
+    datas <- lapply(datas,function(x) gsub("/$", "", x))
+
     software <- "mappoly"
     datas <- unlist(datas)
     list_items <- c("dat", "mat2", "maps", "summaries", "info")

README.md

@@ -9,7 +9,7 @@
 
 ## Reads2Map App
 
-This shiny app plots graphics for descriptive analyses of the datasets generated by the [Reads2Map workflow](https://github.com/Cristianetaniguti/Reads2Map) workflows. Upload your results in the `Upload data` session. 
+This shiny app plots graphics for descriptive analyses of the datasets generated by the [Reads2Map ](https://github.com/Cristianetaniguti/Reads2Map) workflows. Upload your results in the `Upload data` session. 
 
 Each icon at the left corner of this page points to a different dataset and produces interactive plots.