tests/testthat/apps/simple-commands.R

In Rapp: Easily Build Command Line Applications

#!/usr/bin/env Rapp

global_opt <- "global_opt_default"

#| required: false
switch(
  cmd <- "",

  cmd1 = {
    cmd1_opt <- "cmd1_opt_default"
    cat("cmd1 called!\n")
  },

  cmd2 = {
    #| required: false
    cmd2_positional <- NULL
    cmd2_opt <- "cmd2_opt_default"

    #| required: false
    cmd2_positional2 <- NULL
    cat("cmd2 called!\n")
  },

  help = {}
)

# cat(yaml12::format_yaml(as.list(environment())))
print(as.list(environment(), all.names = TRUE))
print(loadedNamespaces()) # confirm only base,Rapp,compiler

# run("tests/testthat/apps/simple-commands.R", c("cmd1"))
# run("tests/testthat/apps/simple-commands.R", c("cmd1", "--cmd1-opt", "foo"))
# run("tests/testthat/apps/simple-commands.R", c("cmd2", "--cmd2-opt", "foo"))
# run("tests/testthat/apps/simple-commands.R", c("cmd2", "--cmd2-opt", "foo", "baz"))