warn that pak doesn't respect force=T

natverse · Sep 7, 2023 · 9a5e420 · 9a5e420
1 parent 50205e4
commit 9a5e420
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/update.R b/R/update.R
@@ -30,7 +30,11 @@ selfupdate <- function(source = c('GITHUB', 'CRAN'),
   method=match.arg(method)
   pkgspec=ifelse(source=='CRAN', "natmanager", "natverse/natmanager")
   if(method=='pak') {
-    pak::pkg_install(pkgspec, upgrade=upgrade.dependencies, ...)
+    if(isTRUE(force))
+      warning("Ignoring force=T. To force pak to reinstall an up-to-date package",
+              "you must first delete it with:\n",
+              "`remove.packages()`", immediate.=TRUE)
+pak::pkg_install(pkgspec, upgrade=upgrade.dependencies, ...)
   }
   else if (source == 'CRAN') {
       remotes::install_cran(pkgspec, ...)