tests/testthat/helpers.R

parse_shortcuts_text <- function(text, ext = "R") {
  file <- fs::file_temp(ext = ext)
  on.exit(unlink(file))
  writeLines(text, file)

  parse_shortcuts(file)
}
gadenbuie/shrtcts documentation built on Dec. 31, 2022, 6:23 p.m.