From 0b89c57d07ee494046b88b66d1685ee18cce06c2 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Fri, 20 Oct 2023 12:06:00 +0200
Subject: [PATCH] refactor(GUI): add a message to explain how to disconnect the
GUI Refs: #76
---
R/ShinyGR.R | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/R/ShinyGR.R b/R/ShinyGR.R
index b008a1c..c761f03 100644
--- 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"))
--
GitLab