Additional tttl option to switch away from new default 'installed'

eddelbuettel · Jun 10, 2024 · bf0c3d4 · bf0c3d4
1 parent e46c445
commit bf0c3d4
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2024-06-10  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/examples/tttl.r: Support load_package argument switch
+
 2024-06-03  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/examples/installRub.r: Add --minimal flag to not add CRAN

diff --git a/inst/examples/tttl.r b/inst/examples/tttl.r
@@ -15,9 +15,10 @@ suppressMessages({
 })
 
 ## configuration for docopt
-doc <- "Usage: tttl.r [-h] [-x] [-c] [ARG]
+doc <- "Usage: tttl.r [-h] [-x] [-c] [-s] [ARG]
 
 -c --ci             set environment variable CI to TRUE [default: FALSE]
+-s --source         set load package to 'source' not 'installed' [default: FALSE]
 -h --help           show this help text
 -x --usage          show help and short example usage"
 
@@ -53,5 +54,6 @@ if (file.exists(file.path(getwd(), "..", "DESCRIPTION"))) {
 }
 
 if (file.exists("DESCRIPTION") && dir.exists("tests/testthat")) {
-    testthat::test_local("tests/testthat")
+    testthat::test_local("tests/testthat",
+                         load_package = if (opt$source) "source" else "installed")
 }