Nothing
library("R.utils")
######################################################################
# Parsed command-line arguments
######################################################################
# Call:
exprA <- "str(R.utils::cmdArgs(defaults=list(n=2L,a=2)))"
exprB <- "str(R.utils::cmdArgs(defaults=list(n=3L,a=3)))"
argsC <- c("Rscript", "-e", exprA, "--args", "-e", exprB, "-n", "1")
print(argsC)
# Truth:
args0 <- list(e=exprB, n=1)
args <- cmdArgs(.args=argsC)
str(args)
stopifnot(all.equal(args, args0))
# Truth:
args0 <- list(x=3.14, e=exprB, n=1L)
args <- cmdArgs(defaults=list(n=0L, x=3.14), .args=argsC)
str(args)
stopifnot(all.equal(args, args0))
# Truth:
args0 <- list(K=50)
args <- cmdArgs(args=args0, .args=argsC)
str(args)
stopifnot(all.equal(args, args0))
args <- cmdArgs(args=list())
str(args)
args <- cmdArgs(args="*")
str(args)
args <- cmdArgs(args=list("*", "*"))
str(args)
args <- cmdArgs(args=list("*", a=3L, "*"))
str(args)
args <- cmdArgs(args=args0, names="K")
str(args)
stopifnot(all.equal(args, args0["K"]))
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
## Call function via command-line arguments
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
value <- cmdArgsCall("seq_len", args=list(length.out=5))
print(value)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.