removed wrappers for base functions

Author: andrewallenbruce

NAMESPACE

@@ -52,16 +52,6 @@ export(list_pins)
 export(make_interval)
 export(mount_board)
 export(na_if_common)
-export(na_iqr)
-export(na_mad)
-export(na_max)
-export(na_mean)
-export(na_med)
-export(na_min)
-export(na_range)
-export(na_sd)
-export(na_sum)
-export(na_var)
 export(named_group_split)
 export(new_value)
 export(null_if_empty)
@@ -89,3 +79,5 @@ export(upgrade_personal_pkgs)
 export(years_df)
 export(years_floor)
 export(years_vec)
+importFrom(stats,IQR)
+importFrom(stats,median)

R/describe.R

@@ -13,6 +13,8 @@
 #'
 #' @autoglobal
 #'
+#' @importFrom stats median IQR
+#'
 #' @export
 describe <- function(df, ...) {
 
@@ -28,14 +30,14 @@ describe <- function(df, ...) {
       ) |>
     dplyr::mutate(n = 1 - is.na(value)) |>
     dplyr::reframe(
-      n = as.integer(na_sum(n)),
-      mean = na_mean(value),
-      sd = na_sd(value),
-      iqr = na_iqr(value),
-      med = na_med(value),
-      mad = na_mad(value),
+      n = as.integer(sum(n, na.rm = TRUE)),
+      mean = mean(value, na.rm = TRUE),
+      sd = sd(value, na.rm = TRUE),
+      iqr = IQR(value, na.rm = TRUE),
+      med = median(value, na.rm = TRUE),
+      mad = mad(value, na.rm = TRUE),
       range = glue_chr(
-        "[{roundup(na_min(value))} - {roundup(na_max(value))}]"
+        "[{roundup(min(value, na.rm = TRUE))} - {roundup(max(value, na.rm = TRUE))}]"
         ),
       histogram = histo(value),
       .by = variable
@@ -113,7 +115,7 @@ histo <- function(x, width = 10) {
   bins <- graphics::hist(x, breaks = width, plot = FALSE)
 
   factor <- cut(
-    bins$counts / na_max(bins$counts),
+    bins$counts / max(bins$counts, na.rm = TRUE),
     breaks = seq(0, 1, length = length(sparks) + 1),
     labels = sparks,
     include.lowest = TRUE

R/wrappers.R

@@ -46,175 +46,6 @@ roundup <- function(x, digits = 2) {
   )
 }
 
-#' `mean()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @examples
-#' na_mean(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_mean <- function(x) {
-  base::mean(x, na.rm = TRUE)
-}
-
-#' `sum()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @examples
-#' na_sum(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_sum <- function(x) {
-  base::sum(x, na.rm = TRUE)
-}
-
-#' `sd()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @examples
-#' na_sd(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_sd <- function(x) {
-  stats::sd(x, na.rm = TRUE)
-}
-
-#' `median()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @examples
-#' na_med(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_med <- function(x) {
-  stats::median(x, na.rm = TRUE)
-}
-
-#' `var()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @examples
-#' na_var(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_var <- function(x) {
-  stats::var(x, na.rm = TRUE)
-}
-
-#' `mad()` with `NA` removal
-#'
-#' Compute the median absolute deviation, i.e., the (lo-/hi-) median of the
-#' absolute deviations from the median, and (by default) adjust by a factor for
-#' asymptotically normal consistency.
-#'
-#' @param x `<numeric>` vector
-#'
-#' @param ... additional arguments to pass to `stats::mad()`
-#'
-#' @examples
-#' na_mad(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_mad <- function(x, ...) {
-  stats::mad(x, na.rm = TRUE, ...)
-}
-
-#' `IQR()` with `NA` removal
-#'
-#' @param x `<numeric>` vector
-#'
-#' @param ... additional arguments to pass to `stats::IQR()`
-#'
-#' @examples
-#' na_iqr(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_iqr <- function(x, ...) {
-  stats::IQR(x, na.rm = TRUE, ...)
-}
-
-#' `range()` with `NA` removal
-#'
-#' @param ... `<numeric>` vector
-#'
-#' @examples
-#' na_range(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_range <- function(...) {
-  base::range(..., na.rm = TRUE)
-}
-
-#' `min()` with `NA` removal
-#'
-#' @param ... `<numeric>` vector
-#'
-#' @examples
-#' na_min(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_min <- function(...) {
-  base::min(..., na.rm = TRUE)
-}
-
-#' `max()` with `NA` removal
-#'
-#' @param ... `<numeric>` vector
-#'
-#' @examples
-#' na_max(c(1, 2, NA))
-#'
-#' @autoglobal
-#'
-#' @keywords internal
-#'
-#' @export
-na_max <- function(...) {
-  base::max(..., na.rm = TRUE)
-}
-
-
 #' Wrapper for `as.character(glue::glue(x))`
 #'
 #' @param ... dots to pass to glue function