refactor: move setup functions from _deps to _setup

Author: gadenbuie

scripts/_functions_deps.R

@@ -1,34 +1,3 @@
-assert_npm_is_installed <- function() {
-  if (Sys.which("npm")[["npm"]] == "") {
-    cli::cli_abort(c(
-      "{.strong {npm}} is required to install JavaScript dependenceis.",
-      i = "Please install {.url https://nodejs.org}."
-    ))
-  }
-
-  cli::cli_alert_success("{.strong npm} is installed")
-  invisible(TRUE)
-}
-
-pkg_source_version <- function(pkg) {
-  desc <- suppressWarnings(utils::packageDescription(pkg))
-  if (!inherits(desc, "packageDescription")) {
-    return("[not installed]")
-  }
-  version <- desc[["Version"]]
-  if (is.null(desc[["GithubRepo"]])) {
-    return(version)
-  }
-
-  sprintf(
-    "%s (%s/%s@%s)",
-    version,
-    desc[["GithubUsername"]],
-    desc[["GithubRepo"]],
-    desc[["GithubSHA1"]]
-  )
-}
-
 write_json <- function(
   file,
   x,

scripts/_functions_setup.R

@@ -7,6 +7,18 @@ ensure_base_packages <- function() {
   }
 }
 
+assert_npm_is_installed <- function() {
+  if (Sys.which("npm")[["npm"]] == "") {
+    cli::cli_abort(c(
+      "{.strong {npm}} is required to install JavaScript dependenceis.",
+      i = "Please install {.url https://nodejs.org}."
+    ))
+  }
+
+  cli::cli_alert_success("{.strong npm} is installed")
+  invisible(TRUE)
+}
+
 pak_install <- function(...) {
   ensure_base_packages()
   pkgs <- c(...)
@@ -39,3 +51,22 @@ bs_version_full <- function(version) {
   bs_v <- bslib::versions()
   names(bs_v)[bs_v == version]
 }
+
+pkg_source_version <- function(pkg) {
+  desc <- suppressWarnings(utils::packageDescription(pkg))
+  if (!inherits(desc, "packageDescription")) {
+    return("[not installed]")
+  }
+  version <- desc[["Version"]]
+  if (is.null(desc[["GithubRepo"]])) {
+    return(version)
+  }
+
+  sprintf(
+    "%s (%s/%s@%s)",
+    version,
+    desc[["GithubUsername"]],
+    desc[["GithubRepo"]],
+    desc[["GithubSHA1"]]
+  )
+}