Nothing
Run complex native scripts with a single command, similar to system commands.
The purpose of the scriptexec package is to enable quick and easy way to execute native scripts.
Simply load the library and invoke the execute
library(scriptexec)
# execute script text
output <- scriptexec::execute("echo command1\necho command2")
expect_equal(output$status, 0)
expect_equal(grepl("command1", output$output), TRUE)
expect_equal(grepl("command2", output$output), TRUE)
if (.Platform$OS.type == "windows") {
ls_command <- "dir"
} else {
ls_command <- "ls"
}
output <- scriptexec::execute(c("echo user home:", ls_command))
expect_equal(output$status, 0)
# execute multiple commands as a script
output <- scriptexec::execute(c("cd", "echo test"))
expect_equal(output$status, 0)
# pass arguments (later defined as ARG1, ARG2, ...) and env vars
if (.Platform$OS.type == "windows") {
command <- "echo %ARG1% %ARG2% %MYENV%"
} else {
command <- "echo $ARG1 $ARG2 $MYENV"
}
output <- scriptexec::execute(command, args = c("TEST1", "TEST2"), env = c("MYENV=TEST3"))
expect_equal(output$status, 0)
expect_equal(grepl("TEST1 TEST2 TEST3", output$output), TRUE)
# non zero status code is returned in case of errors
expect_warning(output <- scriptexec::execute("exit 1"))
expect_equal(output$status, 1)
# do not wait for command to finish
output <- scriptexec::execute("echo my really long task", wait = FALSE)
expect_equal(output$status, -1)
Install from CRAN:
install.packages("scriptexec")
Install latest release from github:
devtools::install_github("sagiegurari/scriptexec@0.3.1")
Install current development version from github (might be unstable):
devtools::install_github("sagiegurari/scriptexec")
See full docs at: API Docs
See NEWS
Developed by Sagie Gur-Ari and licensed under the Apache 2 open source license.
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.