R/parse.R

In ecos-umons/sourceR: R code analysis tools

ParsePackage <- function(package, guess.encoding=FALSE, recursive=FALSE) {
  path <- file.path(package, "R")
  files <- dir(path, recursive=recursive)
  src <- grep("^[a-zA-Z0-9].*\\.[RrSsq]$", files, value=TRUE)
  if (length(src)) {
    res <- lapply(file.path(path, src), ParseFile)
    names(res) <- file.path("R", src)
    class(res) <- "package.code"
    res
  }
}

package.code <- ParsePackage

ParseFile <- function(filename, guess.encoding=FALSE) {
  encoding <- if (guess.encoding) GuessEncoding(filename) else "unknown"
  parse(filename, keep.source=TRUE, encoding=encoding)
}

ParseText <- function(text, name=NULL) {
  expr <- parse(text=text, keep.source=TRUE)
  if (is.null(name)) attributes(expr)$srcfile <- srcfile(tempfile())
  else attributes(expr)$srcfile <- srcfile(name)
  expr
}