R/utils.R

Defines functions pkg_read_lines

pkg_read_lines <- function(..., values = list()) {
  txt <- readLines(system.file(..., package = "branchMover"))
  txt <- paste0(txt, collapse = "\n")
  if (length(values)) {
    glue::glue_data(values, txt)
  } else {
    txt
  }
}
gadenbuie/branchMover documentation built on Dec. 20, 2021, 9:44 a.m.