feat: import standalone scripts for ggplot and strict list

Author: Exceret

DESCRIPTION

@@ -7,21 +7,28 @@ Description: What the package does (one paragraph).
 License: MIT + file LICENSE
 Suggests: 
     data.table,
-    dplyr,
     flir,
     gh,
     pedant,
-    purrr,
     rmarkdown,
-    testthat (>= 3.0.0),
-    tibble
+    testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.3
 Imports: 
     cli,
-    rlang (>= 1.0.0),
-    rstudioapi
+    dplyr,
+    ggplot2,
+    knitr,
+    purrr,
+    ragg,
+    rlang,
+    rstudioapi,
+    scales,
+    stats,
+    stringr,
+    systemfonts,
+    tibble
 Remotes:
     github::wurli/pedant

NAMESPACE

@@ -1,5 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("$",strict_list)
+S3method("[",strict_list)
+S3method("[[",strict_list)
+S3method(as.list,strict_list)
 export(air_format)
 export(create_standalone)
 export(flir_fix)

R/12_render_rmd.R

@@ -12,7 +12,8 @@ render_rmd <- function(path = NULL, output_format = "md_document", ...) {
   rlang::check_installed("rmarkdown")
   path <- if (is.null(path) && rlang::is_installed("rstudioapi")) {
     rstudioapi::getActiveDocumentContext()$path
-  } else {
+  }
+  if (is.null(path)) {
     cli::cli_abort(("c" = "{.arg path} is required"))
   }
   rmarkdown::render(input = path, output_format = output_format)

R/13_make_func_call_explicit.R

@@ -1,25 +1,37 @@
-#' Make function calls explicit by adding double colons
+#' Make Function Calls Explicit
 #'
 #' @description
-#' This function reads an R file and adds explicit package namespace qualifiers
-#' (double colons) to function calls using the `pedant` package. If no path is
-#' provided, it attempts to use the currently active file in RStudio.
+#' Add double colons (`::`) to function calls from specified packages to make
+#' package dependencies explicit in R code.
 #'
-#' @param path A character string specifying the path to the R file to process.
-#'   If `NULL` and RStudio is available, the active document path is used.
-#' @param ... Additional arguments (currently unused).
+#' @param path A character string specifying the path to the R file to modify.
+#'   If `NULL` and RStudio is available, the currently active document path is used.
+#' @param use_packages A character vector of package names to process. Defaults to
+#'   `pedant::current_packages()`.
+#' @param ignore_functions A character vector of function names to ignore. Defaults to
+#'   `pedant::imported_functions()`.
+#' @param ... Additional arguments. Currently unused and must be empty.
 #'
-#' @return Invisible `NULL`. The function modifies the file in place.
+#' @return
+#' Invisible `NULL`. This function is called for its side effect of modifying the
+#' specified file in place.
 #'
 #' @details
-#' The function requires the `pedant` package to be installed. It reads the file,
-#' adds double colons to function calls to make package dependencies explicit,
-#' and writes the modified code back to the same file.
+#' This function reads the specified R file, identifies function calls from the
+#' specified packages, and adds explicit namespace qualifiers (`::`) to those
+#' calls. The modified code is written back to the original file.
+#'
+#' @seealso
+#' [pedant::add_double_colons()], [pedant::current_packages()], [pedant::imported_functions()]
 #'
 #' @examples
 #' \dontrun{
 #' make_func_call_explicit("path/to/file.R")
-#' make_func_call_explicit()  # Uses active RStudio file
+#' make_func_call_explicit(
+#'   path = "path/to/file.R",
+#'   use_packages = c("dplyr", "tidyr"),
+#'   ignore_functions = c("library", "require")
+#' )
 #' }
 #'
 #' @export

R/import-standalone-extra-checks.R

@@ -37,28 +37,28 @@ check_list <- function(x,
                        allow_na = FALSE,
                        allow_empty = FALSE,
                        allow_null = FALSE,
-                       arg = caller_arg(x),
-                       call = caller_env()) {
+                       arg = rlang::caller_arg(x),
+                       call = rlang::caller_env()) {
   if (allow_na && is.na(x)) {
     return(invisible(NULL))
   }
 
-  if (allow_null && is_null(x)) {
+  if (allow_null && purrr::is_null(x)) {
     return(invisible(NULL))
   }
 
-  if (is_empty(x)) {
+  if (purrr::is_empty(x)) {
     if (allow_empty) {
       return(invisible(NULL))
     }
 
-    cli_abort(
+    cli::cli_abort(
       "{.arg {arg}} can't be empty.",
       call = call
     )
   }
 
-  if (is_list(x)) {
+  if (rlang::is_list(x)) {
     return(invisible(NULL))
   }
 
@@ -73,7 +73,7 @@ check_list <- function(x,
 #' Does x match the pattern of a URL?
 #' @noRd
 is_url <- function(x, pattern = NULL, ...) {
-  if (!is_vector(x) || is_empty(x)) {
+  if (!rlang::is_vector(x) || rlang::is_empty(x)) {
     return(FALSE)
   }
 
@@ -91,9 +91,9 @@ check_url <- function(url,
                       pattern = NULL,
                       ...,
                       allow_null = FALSE,
-                      arg = caller_arg(url),
-                      call = caller_env()) {
-  if (allow_null && is_null(url)) {
+                      arg = rlang::caller_arg(url),
+                      call = rlang::caller_env()) {
+  if (allow_null && purrr::is_null(url)) {
     return(invisible(NULL))
   }
 
@@ -177,26 +177,26 @@ check_exclusive_args <- function(x = NULL,
                                  y = NULL,
                                  require = TRUE,
                                  ...,
-                                 x_arg = caller_arg(x),
-                                 y_arg = caller_arg(y),
-                                 call = caller_env()) {
-  if (is_empty(c(x, y))) {
+                                 x_arg = rlang::caller_arg(x),
+                                 y_arg = rlang::caller_arg(y),
+                                 call = rlang::caller_env()) {
+  if (purrr::is_empty(c(x, y))) {
     if (!require) {
       return(invisible(NULL))
     }
 
-    cli_abort(
+    cli::cli_abort(
       "One of {.arg {x_arg}} or {.arg {y_arg}} must be supplied.",
       call = call,
       ...
     )
   }
 
-  if (!has_length(c(x, y), 2)) {
+  if (!rlang::has_length(c(x, y), 2)) {
     return(invisible(NULL))
   }
 
-  cli_abort(
+  cli::cli_abort(
     "Exactly one of {.arg {x_arg}} or {.arg {y_arg}} must be supplied.",
     call = call,
     ...
@@ -236,13 +236,13 @@ check_has_name <- function(x,
     add_msg <- NULL
   }
 
-  cli_abort(
+  cli::cli_abort(
     message = c(
       "{.arg {arg}} must have{what} the name{cli::qty(n)}{?s} {.val {nm}}.",
       add_msg
       ),
     ...,
-    .envir = current_env(),
+    .envir = rlang::current_env(),
     call = call
   )
 }

README.Rmd

@@ -10,7 +10,7 @@
 [![Codecov test coverage](https://codecov.io/gh/Exceret/rpkgkit/graph/badge.svg)](https://app.codecov.io/gh/Exceret/rpkgkit)
 <!-- badges: end -->
 
-The goal of rpkgkit is to collect useful functions and standalone scripts for R package development.
+The goal of rpkgkit is to collect useful functions and standalone scripts for R package development. use `usethis::use_standalone()` to import the standalone scripts.
 
 ## Installation
 

README.md

@@ -13,7 +13,9 @@ status](https://www.r-pkg.org/badges/version/rpkgkit)](https://CRAN.R-project.or
 coverage](https://codecov.io/gh/Exceret/rpkgkit/graph/badge.svg)](https://app.codecov.io/gh/Exceret/rpkgkit)
 <!-- badges: end -->
 
-The goal of rpkgkit is to …
+The goal of rpkgkit is to collect useful functions and standalone
+scripts for R package development. use `usethis::use_standalone()` to
+import the standalone scripts.
 
 ## Installation