Use {pak} for downloading suggested dependencies? (#418)

* Use `{pak}` for downloading suggested dependencies?
Fixes #413

* version

DESCRIPTION

@@ -70,6 +70,7 @@ Suggests:
     jsonlite,
     knitr,
     mockery,
+    pak,
     patchwork,
     rmarkdown,
     testthat (>= 3.2.1),

R/easystats_update.R

@@ -40,11 +40,15 @@ easystats_update <- function(which = c("all", "core", "deps")) {
     # detach packages before installing
     lapply(behind$package, unloadNamespace)
 
-    utils::install.packages(
-      behind$package,
-      quiet = TRUE,
-      dependencies = FALSE
-    )
+    if (insight::check_if_installed("pak", quietly = TRUE)) {
+      pak::pkg_install(behind$package)
+    } else {
+      utils::install.packages(
+        behind$package,
+        quiet = TRUE,
+        dependencies = FALSE
+      )
+    }
   }
 
   if (which %in% c("all", "deps")) {
@@ -69,11 +73,15 @@ easystats_update <- function(which = c("all", "core", "deps")) {
     # detach packages before installing
     lapply(behind$package, unloadNamespace)
 
-    utils::install.packages(
-      behind$package,
-      quiet = TRUE,
-      dependencies = FALSE
-    )
+    if (insight::check_if_installed("pak", quietly = TRUE)) {
+      pak::pkg_install(behind$package)
+    } else {
+      utils::install.packages(
+        behind$package,
+        quiet = TRUE,
+        dependencies = FALSE
+      )
+    }
   }
 
   invisible()

R/install_suggested.R

@@ -55,6 +55,8 @@ install_suggested <- function(package = "easystats") {
 
   if (all(installed_packages)) {
     message("All of the suggested packages are already installed :)")
+  } else if (insight::check_if_installed("pak", quietly = TRUE)) {
+    pak::pkg_install(pkg_download[!installed_packages], dependencies = FALSE)
   } else {
     utils::install.packages(pkg_download[!installed_packages])
   }