scriptexec: Execute native scripts

Description

This package provides one main function: execute which executes the provided script and returns its output.

Builds the output structure.

Description

Builds the output structure.

Usage

build_output(output, wait)

Arguments

Value

The script output structure

Examples

output <- c('line 1', '\n', 'line 2')
attr(output, 'status') <- 15
script_output <- build_output(output)

Creates a temporary file, writes the provided script content into it and returns the file name.

Description

Creates a temporary file, writes the provided script content into it and returns the file name.

Usage

create_script_file(script = "")

Arguments

Value

The temporary file name

Examples

filename <- create_script_file('echo test')

Returns the system call arguments.

Description

Returns the system call arguments.

Usage

create_system_call_args(command, cli_args, wait, env, is_windows_os)

Arguments

Value

The system call arguments

Examples

filename <- './myfile.sh'
arg_list <- create_system_call_args('sh', c(filename), TRUE, character(), FALSE)

Executes a script and returns the output. The stdout and stderr are captured and returned. In case of errors, the exit code will return in the status field.

Description

Executes a script and returns the output. The stdout and stderr are captured and returned. In case of errors, the exit code will return in the status field.

Usage

execute(script = "", args = c(), env = character(), wait = TRUE,
  runner = NULL, print_commands = FALSE, get_runtime_script = FALSE)

Arguments

Value

The process output, status code (in case wait=TRUE), error message (in case of any errors) and invoked script in the form of list(status = status, output = output_text, error = error_message, script = script)

Examples

library('scriptexec')
library('testthat')

# 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)

Generates and returns a script which sets up the env vars for the script arguments

Description

Generates and returns a script which sets up the env vars for the script arguments

Usage

generate_args_setup_script(args = character())

Arguments

Value

The script text which sets up the env vars for the script arguments

Examples

script <- generate_args_setup_script(args = c('first', 'second'))

Generates and returns a script which sets up the env vars for the script execution.

Description

Generates and returns a script which sets up the env vars for the script execution.

Usage

generate_env_setup_script(env = character())

Arguments

Value

The script text which sets up the env

Examples

script <- generate_env_setup_script(c('ENV_TEST=MYENV'))

Returns the command and arguments needed to execute the provided script file on the current platform.

Description

Returns the command and arguments needed to execute the provided script file on the current platform.

Usage

get_command(filename, runner = NULL)

Arguments

Value

A list holding the command and arguments

Examples

command_struct <- get_command('myfile.sh')
command <- command_struct$command
cli_args <- command_struct$args

Returns the value based on the current platform.

Description

Returns the value based on the current platform.

Usage

get_platform_value(unix_value = c(), windows_value = c(),
  force_windows = FALSE)

Arguments

Value

unix_value in case of unix system, else the windows_value

Examples

platform_value <- get_platform_value('.sh', '.bat')

Returns true if windows, else false.

Description

Returns true if windows, else false.

Usage

is_windows()

Value

True if windows, else false.

Examples

windows <- is_windows()

Modifies the provided script text and ensures the script content is executed in the correct location.

Description

Modifies the provided script text and ensures the script content is executed in the correct location.

Usage

modify_script(script, args = c(), env = character(),
  print_commands = FALSE, is_windows_os = FALSE)

Arguments

Value

The modified script text

Examples

script <- modify_script(script = 'echo test', args = c('first', 'second'), env = c('MYENV=MYENV'))

Internal error handler.

Description

Internal error handler.

Usage

on_invoke_error(error)

Arguments

Value

The invocation output