Define a location for pak during the R CMD check phase.

Author: coatless

DESCRIPTION

@@ -17,7 +17,6 @@ BugReports: https://github.com/coatless-rpkg/dockitect/issues
 License: AGPL (>= 3)
 Depends: R (>= 4.4)
 Imports:
-    utils,
     cli,
     pak,
     jsonlite

tests/testthat/setup.R

@@ -0,0 +1,5 @@
+# c.f. https://github.com/r-lib/pkgcache/tree/main?tab=readme-ov-file#using-pkgcache-in-cran-packages
+
+# Temporary directory for R package cache
+# Workaround until going full toward renv
+Sys.setenv(R_USER_CACHE_DIR = tempfile())

tests/testthat/test-dockitect-from-environment.R

@@ -21,7 +21,6 @@ test_that("dk_from_session(): creates dockerfile from current session", {
 test_that("dk_add_sysreqs(): adds system requirements correctly", {
   # Skip if 'pak' not available
   skip_if_not_installed("pak")
-  skip_on_ci()
 
   # Mock functions for testing to avoid long loading times ---- 
   mock_pkg_sysreqs <- function(packages, sysreqs_platform = "ubuntu") {

tests/testthat/test-dockitect-templates.R

@@ -26,8 +26,6 @@ test_that("dk_register_template(): registers and retrieves custom templates", {
 # Test dk_template_base() ----
 test_that("dk_template_base(): creates a base R dockerfile", {
 
-  skip_on_ci()
-  
   df <- dk_template_base(r_version = "4.4.0")
   expect_true(is_dockerfile(df))
   expect_true(has_instruction(df, "FROM"))
@@ -49,7 +47,7 @@ test_that("dk_template_base(): creates a base R dockerfile", {
 
 # Test dk_template_shiny() ----
 test_that("dk_template_shiny(): creates a Shiny app dockerfile", {
-  skip_on_ci()
+
   df <- dk_template_shiny(r_version = "4.4.0", port = 3838)
   expect_true(is_dockerfile(df))
   expect_true(has_instruction(df, "FROM"))
@@ -74,7 +72,7 @@ test_that("dk_template_shiny(): creates a Shiny app dockerfile", {
 
 # Test dk_template_plumber() ----
 test_that("dk_template_plumber(): creates a Plumber API dockerfile", {
-  skip_on_ci()
+
   df <- dk_template_plumber(r_version = "4.4.0", port = 8000, api_file = "plumber.R")
   expect_true(is_dockerfile(df))
   expect_true(has_instruction(df, "FROM"))

vignettes/getting-started-with-dockitect.Rmd

@@ -12,6 +12,8 @@ knitr::opts_chunk$set(
   collapse = TRUE,
   comment = "#>"
 )
+
+Sys.setenv(R_USER_CACHE_DIR = tempfile())
 ```
 
 ## Introduction