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) } }
Generated by dwww version 1.15 on Wed May 22 22:33:21 CEST 2024.