diff --git a/R/ShinyGR.R b/R/ShinyGR.R
index b008a1cac7b62f960a286d7d20d8134e1fe5be4e..c761f03df39fff7d1b78147ff6e6784d3076edfe 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"))