Use non-GH specific env vars

GITHUB_WORKSPACE -> R_APP_WORKSPACE,
RUNNER_TEMP -> R_APP_TEMP

Author: gaborcsardi

R/paths.R

@@ -1,7 +1,7 @@
 repo_root <- function() {
-  file.path(Sys.getenv("GITHUB_WORKSPACE", "www"))
+  file.path(Sys.getenv("R_APP_WORKSPACE", "www"))
 }
 
 cache_dir <- function() {
-  file.path(Sys.getenv("RUNNER_TEMP", "cache"))
+  file.path(Sys.getenv("R_APP_TEMP", "cache"))
 }

tests/testthat/test-parse.R

@@ -16,20 +16,20 @@ test_that("parse_package_list", {
 })
 
 test_that("parse_metadata_file", {
-  withr::local_envvar(GITHUB_WORKSPACE = test_path("fixtures"))
+  withr::local_envvar(R_APP_WORKSPACE = test_path("fixtures"))
   expect_snapshot({
     parse_metadata_file("src/contrib")
   })
 
-  withr::local_envvar(GITHUB_WORKSPACE = tempfile())
+  withr::local_envvar(R_APP_WORKSPACE = tempfile())
   expect_snapshot({
     parse_metadata_file("src/contrib")
   }, transform = redact_tempfile)
 })
 
 test_that("get_state", {
   withr::local_envvar(TEST_CRAN_PACKAGE_MIRROR = fake_cran$url())
-  withr::local_envvar(GITHUB_WORKSPACE = test_path("fixtures"))
+  withr::local_envvar(R_APP_WORKSPACE = test_path("fixtures"))
   expect_snapshot({
     get_state("src/contrib")
   }, transform = redact_webfakes)

tests/testthat/test-update.R

@@ -21,13 +21,13 @@ test_that("update_dir", {
   withr::local_options(cli.dynamic = FALSE, cli.ansi = FALSE)
 
   withr::local_envvar(TEST_CRAN_PACKAGE_MIRROR = fake_cran$url())
-  withr::local_envvar(GITHUB_WORKSPACE = test_path("fixtures"))
-  withr::local_envvar(RUNNER_TEMP = file.path(tmp, "cache"))
+  withr::local_envvar(R_APP_WORKSPACE = test_path("fixtures"))
+  withr::local_envvar(R_APP_TEMP = file.path(tmp, "cache"))
 
   # create a local METADATA2.gz file that is outdated
   meta <- suppressMessages(parse_metadata_file("src/contrib"))
   meta_upd <- rbind(meta, c("test_0.0.0.1.tar.gz", 1, NA, "", NA, ""))
-  withr::local_envvar(GITHUB_WORKSPACE = tmp)
+  withr::local_envvar(R_APP_WORKSPACE = tmp)
   write_metadata("src/contrib", meta_upd)
 
   expect_snapshot({