R/helper_functions_for_p0.R

In twig: For Streamlining Decision and Economic Evaluation Models using Grammar of Modeling

Defines functions is_scalar is_global_variable is_numeric_string

is_numeric_string <- function(x) {
  grepl("^-?\\d*(\\.\\d+)?$", x)
}

is_global_variable <- function(var_name) {
  exists(var_name, envir = .GlobalEnv)
}

is_scalar <- function(x) {
  is.atomic(x) && length(x) == 1
}

Try the twig package in your browser