v0.1.5.22 export files renamed in ShinyGR

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Interface)
-Version: 0.1.5.21
+Version: 0.1.5.22
 Date: 2017-09-14
 Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
 Depends: airGR (>= 1.0.9.43)

inst/ShinyGR/server.R

@@ -411,7 +411,7 @@ shinyServer(function(input, output, session) {
   output$DownloadTab <- downloadHandler(
     filename = function() {
       filename <- "TabSim"
-      filename <- sprintf("airGRteaching_%s.csv", filename)
+      filename <- sprintf("airGR_%s_%s.csv", filename, gsub("(.*)( )(\\d{2})(:)(\\d{2})(:)(\\d{2})", "\\1_\\3h\\5m\\7s", Sys.time()))
     },
     content = function(file) {
       OBS <- getPrep()$OBS
@@ -447,7 +447,7 @@ shinyServer(function(input, output, session) {
                             "Flow time series"  = "PlotFlowTimeSeries",
                             "State variables"   = "PlotStateVar",
                             "Model diagram"     = "PlotModelDiag")
-      filename <- sprintf("airGRteaching_%s.png", filename)
+      filename <- sprintf("airGR_%s_%s.png", filename, gsub("(.*)( )(\\d{2})(:)(\\d{2})(:)(\\d{2})", "\\1_\\3h\\5m\\7s", Sys.time()))
     },
     content = function(file) {
       k <- 1.75