assert_symbol: Is an Argument a Symbol?
In epijim/admiral: ADaM in R Asset Library

Description Usage Arguments Value Author(s) Examples

Checks if an argument is a symbol

1	assert_symbol(arg, optional = FALSE)

`arg`	A function argument to be checked. Must be a `quosure`. See examples.
`optional`	Is the checked parameter optional? If set to `FALSE` and `arg` is `NULL` then an error is thrown

The function throws an error if arg is not a symbol and returns the input invisibly otherwise.

Thomas Neitmann

library(admiral.test)
data(dm)

example_fun <- function(dat, var) {
  var <- assert_symbol(rlang::enquo(var))
  dplyr::select(dat, !!var)
}

example_fun(dm, USUBJID)

try(example_fun(dm))

try(example_fun(dm, "USUBJID"))

try(example_fun(dm, toupper(PARAMCD)))