Engine and extension installs (#1157)

* changes for #1156

* small text update

* Update R/install_packages.R

Co-authored-by: Simon P. Couch <simonpatrickcouch@gmail.com>

* update from reviewer feedback

---------

Co-authored-by: ‘topepo’ <‘mxkuhn@gmail.com’>
Co-authored-by: Simon P. Couch <simonpatrickcouch@gmail.com>

Author: 3 people

NEWS.md

@@ -12,6 +12,8 @@
 
 * New `extract_fit_time()` method has been added that returns the time it took to train the model (#853).
 
+* Ensure that `knit_engine_docs()` has the required packages installed (#1156).
+
 
 # parsnip 1.2.1
 

R/engine_docs.R

@@ -4,9 +4,16 @@
 #' @return A tibble with column `file` for the file name and `result` (a
 #' character vector that echos the output file name or, when there is
 #' a failure, the error message).
+#' @details
+#' This function will check whether the known parsnip extension packages,
+#' engine specific packages, and a few other ancillary packages are installed.
+#' Users will be prompted to install anything required to create the engine
+#' documentation.
+#'
 #' @keywords internal
 #' @export
 knit_engine_docs <- function(pattern = NULL) {
+  install_engine_packages()
   old_cli_opt <- options()$cli.unicode
   on.exit(options(cli.unicode = old_cli_opt))
   options(cli.unicode = FALSE)

R/install_packages.R

@@ -1,16 +1,12 @@
+# Installs packages needed to run `knit_engine_docs()`.
 install_engine_packages <- function(extension = TRUE, extras = TRUE,
                                     ignore_pkgs = c("stats", "liquidSVM",
                                                     "parsnip")) {
   bio_pkgs <- c()
 
   if (extension) {
     extensions_packages <- extensions()
-    repositories <- glue::glue("tidymodels/{extensions_packages}")
-
-    remotes::install_github(repositories)
-
-    extensions_packages <- extensions()
-    purrr::walk(extensions_packages, library, character.only = TRUE)
+    rlang::check_installed(extensions_packages)
     bio_pkgs <- c(bio_pkgs, "mixOmics")
   }
 
@@ -35,7 +31,6 @@ install_engine_packages <- function(extension = TRUE, extras = TRUE,
     engine_packages <- unique(c(engine_packages, rmd_pkgs))
   }
 
-  remotes::install_cran(engine_packages)
-
-  remotes::install_bioc(bio_pkgs)
+  rlang::check_installed(engine_packages)
+  rlang::check_installed(bio_pkgs)
 }