diff --git a/Dockerfile b/Dockerfile index 0079420..cd2b9ab 100644 --- a/Dockerfile +++ b/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()"] + diff --git a/R/graphics_emp.R b/R/graphics_emp.R index 2f640d2..a1a8cd5 100644 --- a/R/graphics_emp.R +++ b/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") } - diff --git a/R/graphics_poly_emp.R b/R/graphics_poly_emp.R index a321c28..d2b4596 100644 --- a/R/graphics_poly_emp.R +++ b/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") diff --git a/README.md b/README.md index 82c5a9b..5afae8c 100644 --- a/README.md +++ b/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.