Update commands example

Signed-off-by: Peter Solymos <psolymos@gmail.com>
analythium · Mar 27, 2023 · 565a7e1 · 565a7e1
1 parent 92e983e
commit 565a7e1
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: rconfig
 Type: Package
 Title: Manage R Configuration at the Command Line
 Version: 0.2.1
-Date: 2023-02-12
+Date: 2023-03-18
 Authors@R: c(
   person(given = "Peter",
     family = "Solymos",

diff --git a/README.Rmd b/README.Rmd
@@ -302,7 +302,11 @@ Rscript mtcars.R --vars cyl disp hp
 Let's see how to use sub-commands:
 
 ```{bash}
+## This will print messages:
 Rscript commands.R model
+
+## This will not print messages:
+Rscript commands.R model --silent
 ```
 
 ```{bash}

diff --git a/inst/examples/commands.R b/inst/examples/commands.R
@@ -1,13 +1,17 @@
 #!/usr/bin/env Rscript
 CONFIG <- rconfig::rconfig()
 
+SILENT <- rconfig::value(CONFIG$silent, FALSE)
+
 model <- function() {
-    message("Model ...")
+    if (!SILENT)
+        message("Model ...")
     # your logic comes here
 }
 
 pred <- function() {
-    message("Predict ...")
+    if (!SILENT)
+        message("Predict ...")
     # your logic comes here
 }