tests/testthat/bad1/R/package.R

In r-pkgs/rcmdcheck: Run 'R CMD check' from 'R' and Capture Results

foobar <- function(argument) {
  argument
}

#' foobar2
#' @export
#' @examples
#' foobar2()

foobar2 <- function() {
  outfile <- Sys.getenv("RCMDCHECK_OUTPUT", "")
  if (nzchar(outfile)) {
    data <- list(libpath = .libPaths(), env = Sys.getenv())
    saveRDS(data, outfile)
  }
}