dwww Home | Show directory contents | Find package

file_from_env <- function(var) {
  if (file.exists(f <- Sys.getenv(var))) readLines(f)
}

if (Sys.getenv("CALLR_DUMP_HERE") != "") {
  saveRDS(
    list(
      env = Sys.getenv(),
      libpaths = .libPaths(),
      search = search(),
      R_ENVIRON = file_from_env("R_ENVIRON"),
      R_ENVIRON_USER = file_from_env("R_ENVIRON_USER"),
      R_PROFILE = file_from_env("R_PROFILE"),
      R_PROFILE_USER = file_from_env("R_PROFILE_USER")
    ),
    file = Sys.getenv("CALLR_DUMP_HERE")
  )
}

Generated by dwww version 1.15 on Mon Jul 1 00:11:39 CEST 2024.