standalone

insightsengineering · Jan 31, 2024 · 9866a08 · 9866a08
1 parent badcf73
commit 9866a08
Show file tree

Hide file tree

Showing 4 changed files with 33 additions and 9 deletions.
diff --git a/R/standalone-checks.R → R/import-standalone-checks.R b/R/standalone-checks.R → R/import-standalone-checks.R
@@ -1,19 +1,22 @@
+# Standalone file: do not edit by hand
+# Source: <https://github.com/ddsjoberg/standalone/blob/main/R/standalone-checks.R>
+# ----------------------------------------------------------------------
+#
 # DO NOT MODIFY THIS FILE. INSTEAD MODIFY THE VERSION IN https://github.com/ddsjoberg/standalone/tree/main/R
 # ---
 # repo: ddsjoberg/standalone
 # file: standalone-checks.R
 # last-updated: 2024-01-24
 # license: https://unlicense.org
-# imports: rlang, cli
+# imports: [rlang, cli]
 # ---
 #
-# This file provides a minimal shim to provide a purrr-like API on top of
-# base R functions. They are not drop-in replacements but allow a similar style
-# of programming.
+# This file provides a minimal functions to check argument values and types
+# passed by users to functions in packages.
 #
 # ## Changelog
 # nocov start
-
+# styler: off
 
 #' Check Class
 #'
@@ -111,7 +114,7 @@ check_scalar <- function(x, arg_name = rlang::caller_arg(x), call = parent.frame
 check_range <- function(x,
                         range,
                         include_bounds = c(FALSE, FALSE),
-                        arg_name = caller_arg(x),
+                        arg_name = rlang::caller_arg(x),
                         scalar = FALSE,
                         msg = paste(
                           "The {.arg {arg_name}} argument must be in the interval",
@@ -166,8 +169,8 @@ check_range <- function(x,
 #' @return invisible
 #' @keywords internal
 #' @noRd
-check_binary <- function(x, arg_name = caller_arg(x), call = parent.frame()) {
-  if (!is.logical(x) && !(is_integerish(x) && is_empty(setdiff(x, c(0, 1, NA))))) {
+check_binary <- function(x, arg_name = rlang::caller_arg(x), call = parent.frame()) {
+  if (!is.logical(x) && !(rlang::is_integerish(x) && rlang::is_empty(setdiff(x, c(0, 1, NA))))) {
     paste(
       "Expecting column {.arg {arg_name}} to be either {.cls logical}",
       "or {.cls {c('numeric', 'integer')}} coded as {.val {c(0, 1)}}."
@@ -178,5 +181,5 @@ check_binary <- function(x, arg_name = caller_arg(x), call = parent.frame()) {
   invisible()
 }
 
-
 # nocov end
+# styler: on
diff --git a/R/standalone-forcats.R → R/import-standalone-forcats.R b/R/standalone-forcats.R → R/import-standalone-forcats.R
@@ -1,3 +1,7 @@
+# Standalone file: do not edit by hand
+# Source: <https://github.com/ddsjoberg/standalone/blob/main/R/standalone-forcats.R>
+# ----------------------------------------------------------------------
+#
 # DO NOT MODIFY THIS FILE. INSTEAD MODIFY THE VERSION IN https://github.com/ddsjoberg/standalone/tree/main/R
 # ---
 # file: standalone-forcats.R
@@ -13,6 +17,7 @@
 # ## Changelog
 #
 # nocov start
+# styler: off
 
 fct_infreq <- function(f, ordered = NA) {
   # reorder by frequency
@@ -32,3 +37,4 @@ fct_inorder <- function(f, ordered = NA) {
 }
 
 # nocov end
+# styler: on
diff --git a/R/standalone-purrr.R → R/import-standalone-purrr.R b/R/standalone-purrr.R → R/import-standalone-purrr.R
@@ -1,3 +1,7 @@
+# Standalone file: do not edit by hand
+# Source: <https://github.com/r-lib/rlang/blob/main/R/standalone-purrr.R>
+# ----------------------------------------------------------------------
+#
 # ---
 # repo: r-lib/rlang
 # file: standalone-purrr.R

diff --git a/R/standalone-stringr.R → R/import-standalone-stringr.R b/R/standalone-stringr.R → R/import-standalone-stringr.R
@@ -1,3 +1,7 @@
+# Standalone file: do not edit by hand
+# Source: <https://github.com/ddsjoberg/standalone/blob/main/R/standalone-stringr.R>
+# ----------------------------------------------------------------------
+#
 # DO NOT MODIFY THIS FILE. INSTEAD MODIFY THE VERSION IN https://github.com/ddsjoberg/standalone/tree/main/R
 # ---
 # file: standalone-stringr.R
@@ -13,6 +17,7 @@
 # ## Changelog
 #
 # nocov start
+# styler: off
 
 str_trim <- function(string, side = c("both", "left", "right")) {
   side <- rlang::arg_match(side)
@@ -39,3 +44,9 @@ str_extract <- function(string, pattern) {
 str_detect <- function(string, pattern) {
   grepl(pattern = pattern, x = string)
 }
+
+# nocov end
+# styler: on
+
+
+