R/session-info.R

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

make_fake_profile <- function(package, session_output, libdir) {
  profile <- tempfile()

  args <- list(
    `__output__` = session_output,
    `__package__` = package,
    `__libdir__` = libdir
  )

  expr <- substitute(
    {
      local({
        reg.finalizer(
          .GlobalEnv,
          function(...) {
            tryCatch(
              {
                .libPaths(c(`__libdir__`, .libPaths()))
                si <- sessioninfo::session_info(pkgs = `__package__`)
                saveRDS(si, `__output__`)
              },
              error = function(e) NULL
            )
          },
          onexit = TRUE
        )
        Sys.unsetenv("R_TESTS")
      })
    },
    args
  )

  cat(deparse(expr), sep = "\n", file = profile)

  profile
}

get_session_info <- function(package, session_output) {
  ## Extract session info for this package
  session_info <- tryCatch(
    suppressWarnings(readRDS(session_output)),
    error = function(e) NULL
  )

  session_info
}