v2.0.6.9028

- refactor: Add dummy files to blank Shiny app folders to avoid being deleted
leppott · Jun 15, 2022 · 6d3cb4c · 6d3cb4c
1 parent c08ef88
commit 6d3cb4c
Show file tree

Hide file tree

Showing 9 changed files with 40 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ContDataQC
 Title: Quality Control (QC) of Continous Monitoring Data
-Version: 2.0.6.9027
+Version: 2.0.6.9028
 Authors@R: c(
 	person("Erik W", "Leppo", email="[email protected]",role=c("aut","cre")),
 	person("Ann","Roseberry Lincoln", role="ctb"),

diff --git a/NEWS b/NEWS
@@ -3,10 +3,17 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2022-06-15 17:06:19
+    #> Last Update: 2022-06-15 17:38:48
 
 # Version History
 
+## v2.0.6.9028
+
+2022-06-15
+
+-   refactor: Add dummy files to blank Shiny app folders to avoid being
+    deleted
+
 ## v2.0.6.9027
 
 2022-06-15

diff --git a/NEWS.md b/NEWS.md
@@ -3,10 +3,17 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2022-06-15 17:06:19
+    #> Last Update: 2022-06-15 17:38:48
 
 # Version History
 
+## v2.0.6.9028
+
+2022-06-15
+
+-   refactor: Add dummy files to blank Shiny app folders to avoid being
+    deleted
+
 ## v2.0.6.9027
 
 2022-06-15

diff --git a/NEWS.rmd b/NEWS.rmd
@@ -21,6 +21,11 @@ cat(paste0("Last Update: ",Sys.time()))
 
 # Version History
 
+## v2.0.6.9028
+2022-06-15
+
+* refactor: Add dummy files to blank Shiny app folders to avoid being deleted
+
 ## v2.0.6.9027
 2022-06-15
 

diff --git a/inst/shiny-examples/ContDataQC/HOBO/delete.me b/inst/shiny-examples/ContDataQC/HOBO/delete.me
@@ -0,0 +1,5 @@
+Upload to Shiny server removes empty directories.
+
+Add dummy file to avoid this issue.
+
+[email protected]
diff --git a/inst/shiny-examples/ContDataQC/miniDOT_cat/delete.me b/inst/shiny-examples/ContDataQC/miniDOT_cat/delete.me
@@ -0,0 +1,5 @@
+Upload to Shiny server removes empty directories.
+
+Add dummy file to avoid this issue.
+
+[email protected]
diff --git a/inst/shiny-examples/ContDataQC/miniDOT_reformat/delete.me b/inst/shiny-examples/ContDataQC/miniDOT_reformat/delete.me
@@ -0,0 +1,5 @@
+Upload to Shiny server removes empty directories.
+
+Add dummy file to avoid this issue.
+
+[email protected]
diff --git a/inst/shiny-examples/ContDataQC/server.R b/inst/shiny-examples/ContDataQC/server.R
@@ -565,7 +565,7 @@ shinyServer(function(input, output, session) {
     message("Copy")
     copy.from <- file.path(UserFile_Path_miniDOT_cat())
     #copy.to <- file.path(getwd(), UserFile_Name())
-    copy.to <- file.path(".", "miniDOT_cat", UserFile_Name_miniDOT_cat())
+    copy.to <- file.path("miniDOT_cat", UserFile_Name_miniDOT_cat())
     file.copy(copy.from, copy.to)
 
     #Allows users to use their own configuration/threshold files for QC.
@@ -666,7 +666,7 @@ shinyServer(function(input, output, session) {
     message("Copy")
     copy.from <- file.path(UserFile_Path_miniDOT_reformat())
     #copy.to <- file.path(getwd(), UserFile_Name())
-    copy.to <- file.path(".", "miniDOT_reformat", UserFile_Name_miniDOT_reformat())
+    copy.to <- file.path("miniDOT_reformat", UserFile_Name_miniDOT_reformat())
     file.copy(copy.from, copy.to)
 
     #Allows users to use their own configuration/threshold files for QC.

diff --git a/inst/shiny-examples/ContDataQC/ui.R b/inst/shiny-examples/ContDataQC/ui.R
@@ -29,7 +29,7 @@ tab_9Status     <- source("external/tab_9Status.R", local = TRUE)$value
 
 shinyUI(
   # VERSION ----
-  navbarPage("Continuous data QC, summary, and statistics - v2.0.6.9027",
+  navbarPage("Continuous data QC, summary, and statistics - v2.0.6.9028",
              theme= shinytheme("spacelab")
              ,tab_1Overview()
              ,tab_2DataPrep()