create list, remove, and update funcs

Author: parmsam

R/list.R

@@ -0,0 +1,38 @@
+#' List Installed Quarto extensions
+#'
+#' List Quarto Extensions in this folder or project by running `quarto list`
+#'
+#' # Extension Trust
+#'
+#' Quarto extensions may execute code when documents are rendered. Therefore, if
+#' you do not trust the author of an extension, we recommend that you do not
+#' install or use the extension.
+#'
+#' @inheritParams quarto_render
+#'
+#' @examples
+#' \dontrun{
+#' # List Quarto Extensions in this folder or project
+#' quarto_list_extensions()
+#' }
+#'
+#' @importFrom rlang is_interactive
+#' @importFrom cli cli_abort
+#' @export
+quarto_list_extensions <- function(quiet = FALSE, quarto_args = NULL){
+  quarto_bin <- find_quarto()
+
+  args <- c("extensions", if (quiet) cli_arg_quiet(), quarto_args)
+  x <- quarto_list(args, quarto_bin = quarto_bin, echo = TRUE)
+  # Clean the stderr output to remove extra spaces and ensure consistent formatting
+  stderr_cleaned <- gsub("\\s+$", "", x$stderr)
+  if (grepl("No extensions are installed", stderr_cleaned)) {
+    invisible()
+  } else{
+    invisible(read.table(text = stderr_cleaned, header = TRUE, fill = TRUE, sep = "", stringsAsFactors = FALSE))
+  }
+}
+
+quarto_list <- function(args = character(), ...){
+  quarto_run_what("list", args = args, ...)
+}

R/remove.R

@@ -0,0 +1,48 @@
+#' Remove a Quarto extensions
+#'
+#' Remove an extension in this folder or project by running `quarto remove`
+#'
+#' # Extension Trust
+#'
+#' Quarto extensions may execute code when documents are rendered. Therefore, if
+#' you do not trust the author of an extension, we recommend that you do not
+#' install or use the extension.
+#' By default `no_prompt = FALSE` which means that
+#' the function will ask for explicit approval when used interactively, or
+#' disallow installation.
+#'
+#' @inheritParams quarto_render
+#'
+#' @param extension The extension to remove, either an archive or a GitHub
+#'   repository as described in the documentation
+#'   <https://quarto.org/docs/extensions/managing.html>.
+#'
+#' @param no_prompt Do not prompt to confirm approval to download external extension.
+#'
+#' @examples
+#' \dontrun{
+#' # Remove an already installed extension
+#' quarto_remove_extension("quarto-ext/fontawesome")
+#'
+#' @importFrom rlang is_interactive
+#' @importFrom cli cli_abort
+#' @export
+quarto_remove_extension <- function(extension = NULL, no_prompt = FALSE, quiet = FALSE, quarto_args = NULL) {
+  rlang::check_required(extension)
+
+  quarto_bin <- find_quarto()
+
+  # This will ask for approval or stop installation
+  approval <- check_removal_approval(no_prompt, extension, "https://quarto.org/docs/extensions/managing.html")
+
+  if (approval) {
+    args <- c(extension, "--no-prompt", if (quiet) cli_arg_quiet(), quarto_args)
+    quarto_remove(args, quarto_bin = quarto_bin, echo = TRUE)
+  }
+
+  invisible()
+}
+
+quarto_remove <- function(args = character(), ...) {
+  quarto_run_what("remove", args = args, ...)
+}

R/update.R

@@ -0,0 +1,52 @@
+#' Update a Quarto extensions
+#'
+#' Update an extension to this folder or project by running `quarto update`
+#'
+#' # Extension Trust
+#'
+#' Quarto extensions may execute code when documents are rendered. Therefore, if
+#' you do not trust the author of an extension, we recommend that you do not
+#' install or use the extension.
+#' By default `no_prompt = FALSE` which means that
+#' the function will ask for explicit approval when used interactively, or
+#' disallow installation.
+#'
+#' @inheritParams quarto_render
+#'
+#' @param extension The extension to install, either an archive or a GitHub
+#'   repository as described in the documentation
+#'   <https://quarto.org/docs/extensions/managing.html>.
+#'
+#' @param no_prompt Do not prompt to confirm approval to download external extension.
+#'
+#' @examples
+#' \dontrun{
+#' # Update a template and set up a draft document from a GitHub repository
+#' quarto_update_extension("quarto-ext/fontawesome")
+#'
+#' # Update a template and set up a draft document from a ZIP archive
+#' quarto_update_extension("https://github.com/quarto-ext/fontawesome/archive/refs/heads/main.zip")
+#' }
+#'
+#' @importFrom rlang is_interactive
+#' @importFrom cli cli_abort
+#' @export
+quarto_update_extension <- function(extension = NULL, no_prompt = FALSE, quiet = FALSE, quarto_args = NULL) {
+  rlang::check_required(extension)
+
+  quarto_bin <- find_quarto()
+
+  # This will ask for approval or stop installation
+  approval <- check_extension_approval(no_prompt, "Quarto extensions", "https://quarto.org/docs/extensions/managing.html")
+
+  if (approval) {
+    args <- c(extension, "--no-prompt", if (quiet) cli_arg_quiet(), quarto_args)
+    quarto_update(args, quarto_bin = quarto_bin, echo = TRUE)
+  }
+
+  invisible()
+}
+
+quarto_update <- function(args = character(), ...) {
+  quarto_run_what("update", args = args, ...)
+}