R/utils_language.R

In wlandau/jagstargets: Targets for JAGS Pipelines

Defines functions call_function call_ns as_symbols

as_symbols <- function(x) {
  lapply(x, as.symbol)
}

call_ns <- function(pkg, fun) {
  call_function("::", as_symbols(c(pkg, fun)))
}

call_function <- function(name, args) {
  as.call(c(as.symbol(name), args))
}