R/parse.R

In slopp/renv: Project Environments for R

renv_parse <- function(file = "", text = NULL, encoding = "UTF-8", ...) {

  renv_scope_options(warn = -1L)

  if (is.character(text))
    return(parse(text = text, encoding = encoding, ...))

  if (nzchar(file))
    return(parse(file = file, encoding = encoding, ...))

  NULL

}

renv_deparse <- function(expr, width.cutoff = 500L, ...) {
  paste(deparse(expr = expr, width.cutoff = width.cutoff, ...), collapse = " ")
}