R/utils-glue.R

In usethis: Automate Package and Project Setup

Defines functions glue_data_chr glue_chr

# wrappers that apply as.character() to glue functions

glue_chr <- function(...) {
  as.character(glue(..., .envir = parent.frame(1)))
}

glue_data_chr <- function(.x, ...) {
  as.character(glue_data(.x = .x, ..., .envir = parent.frame(1)))
}

Try the usethis package in your browser