refactor(GUI): add a message to explain how to disconnect the GUI

Refs: #76

refactor(GUI): add a message to explain how to disconnect the GUI
Refs: #76
0b89c57d · Delaigue Olivier · d121f0b2 · 0b89c57d
Commit 0b89c57d authored 1 year ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 4 additions and 0 deletions
+4 -0
--- a/R/ShinyGR.R
+++ b/R/ShinyGR.R
@@ -4,6 +4,10 @@ ShinyGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL,

  .onAttach()

+  message("\n-----------------------------------------------------------------------")
+  message("\n   Press the 'escape' key to disconnect the graphical user interface \n")
+  message("-----------------------------------------------------------------------\n")
+
  theme <- match.arg(arg = theme,
                     choices = c("RStudio", "Cerulean", "Cyborg", "Flatly", "Inrae", "Saclay", "United", "Yeti"))