From be6e39218b3ee058afb616eedcf4ff58e511253f Mon Sep 17 00:00:00 2001
From: Eliot McIntire <eliotmci@mail.ubc.ca>
Date: Thu, 1 Aug 2024 08:11:41 -0700
Subject: [PATCH] more for Mac

---
 R/pkgDep3.R            | 7 ++++++-
 tests/testthat/setup.R | 2 +-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/pkgDep3.R b/R/pkgDep3.R
index 734ea1a4..41a3bc9d 100644
--- a/R/pkgDep3.R
+++ b/R/pkgDep3.R
@@ -645,7 +645,12 @@ getDepsGH <- function(pkgDT, verbose, which, whichCatRecursive, libPaths, doSave
   out <- pkgDepGitHub(pkgDT = pkgDT, which = which,
                       includeBase = FALSE, libPaths = libPaths, verbose = verbose)
   rec <- FALSE # this function is only one time through
-  set(pkgDT, NULL, deps(FALSE), unname(out))
+
+  val <- unname(out)
+  if (length(val) == 0)
+    val <- lapply(seq_len(NROW(pkgDT)), function(x)
+      data.table(Package = character(), which = character(), packageFullName = character()))
+  set(pkgDT, NULL, deps(FALSE), val)
 
   # rec <- recursiveType(whichCatRecursive)
   snHere <- sn(rec)
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
index ae9fdded..a905c33b 100644
--- a/tests/testthat/setup.R
+++ b/tests/testthat/setup.R
@@ -3,7 +3,7 @@ if (.isDevelVersion() && nchar(Sys.getenv("R_REQUIRE_RUN_ALL_TESTS")) == 0) {
 }
 verboseForDev <- 2
 Require.usePak <- FALSE
-Require.installPackageSys <- 2 * (isMacOSX() %in% FALSE)
+Require.installPackageSys <- 2# * (isMacOSX() %in% FALSE)
 
 if (isTRUE(Require.usePak))
   if (requireNamespace("pak"))