fixed failing examples

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: fuimus
 Title: Functions That Have Been
-Version: 0.0.5.9000
+Version: 0.0.5.9001
 Authors@R: 
     person(c("Andrew", "Allen"), "Bruce", , "andrewallenbruce@gmail.com", role = c("aut", "cre", "cph"))
 Maintainer: Andrew Bruce <andrewallenbruce@gmail.com>

R/generated-globals.R

@@ -15,16 +15,14 @@ utils::globalVariables(c(
   "copy",
   # <add_counties>
   "county_fips",
-  # <forager_data>
+  # <mock_forager>
   "date_of_acceptance",
-  # <forager_data>
+  # <mock_forager>
   "date_of_release",
-  # <forager_data>
+  # <mock_forager>
   "date_of_service",
-  # <forager_data>
+  # <mock_forager>
   "date_of_submission",
-  # <forager_data>
-  "dates",
   # <id_runs>
   "group",
   # <id_runs>

R/maths.R

@@ -7,9 +7,9 @@
 #' @param by column to calculate lag by
 #'
 #' @examples
-#' fuimus:::provider_data(2020:2025) |>
+#' mock_provider(2020:2025) |>
 #'   dplyr::group_by(group) |>
-#'   change_lagged(net_payment, year)
+#'   change_lagged(payment, year)
 #'
 #' @autoglobal
 #'
@@ -35,17 +35,16 @@ change_lagged <- function(df, col, by = NULL) {
 #' @param x numeric vector
 #'
 #' @examples
-#' x <- fuimus:::provider_data(2020:2025)
+#' x <- mock_provider(2020:2025)
 #'
 #' x |>
-#' dplyr::group_by(group) |>
-#' rate_of_return(net_payment)
+#'   dplyr::group_by(group) |>
+#'   rate_of_return(payment)
 #'
 #' x |>
-#' dplyr::group_by(group) |>
-#' rate_of_return(net_payment) |>
-#' dplyr::summarise(gmean = geomean(net_payment_ror),
-#' .by = group)
+#'   dplyr::group_by(group) |>
+#'   rate_of_return(payment) |>
+#'   dplyr::summarise(gmean = geomean(payment_ror), .by = group)
 #'
 #' @autoglobal
 #'
@@ -70,9 +69,9 @@ geomean <- function(x) {
 #' @param fill_na `<int>` fill value for any NAs; default is 1
 #'
 #' @examples
-#' fuimus:::provider_data(2020:2025) |>
+#' mock_provider(2020:2025) |>
 #'   dplyr::group_by(group) |>
-#'   rate_of_return(net_payment)
+#'   rate_of_return(payment)
 #'
 #' @autoglobal
 #'
@@ -111,9 +110,8 @@ rate_of_return <- function(df, col, n = 1, fill_na = 1L) {
 #' @param fill_na fill value for any NAs; default is 0
 #'
 #' @examples
-#' fuimus:::provider_data(2020:2025) |>
-#'   dplyr::mutate(change = chg_abs(net_payment),
-#'   .by = group)
+#' mock_provider(2020:2025) |>
+#'   dplyr::mutate(change = chg_abs(payment), .by = group)
 #'
 #' @autoglobal
 #'
@@ -142,9 +140,8 @@ chg_abs <- function(x, n = 1L, fill_na = 0L) {
 #' @param fill_na fill value for any NAs; default is 0
 #'
 #' @examples
-#' fuimus:::provider_data(2020:2025) |>
-#'   dplyr::mutate(change = chg_pct(net_payment),
-#'   .by = group)
+#' mock_provider(2020:2025) |>
+#'   dplyr::mutate(change = chg_pct(payment), .by = group)
 #'
 #' @autoglobal
 #'
@@ -171,9 +168,9 @@ chg_pct <- function(x, n = 1L, fill_na = 0L) {
 #' @param csm numeric cols to calculate cumulative sum for
 #'
 #' @examples
-#' fuimus:::provider_data(2020:2025) |>
+#' mock_provider(2020:2025) |>
 #'   dplyr::group_by(group) |>
-#'   change(net_payment, csm = c("payment", "_chg"))
+#'   change(payment, csm = c("payment", "_chg"))
 #'
 #' @autoglobal
 #'

R/tidyverse.R

@@ -250,7 +250,7 @@ display_long <- function(data) {
 #' @returns A `<tibble>` with combined columns
 #'
 #' @examples
-#' x <- forager_data()[-5]
+#' x <- mock_forager()[-5]
 #'
 #' x[1, 2] <- ""
 #'
@@ -293,7 +293,7 @@ combine <- function(data, name = combined, columns, sep = "-") {
 #'   the count, default is `FALSE`
 #'
 #' @examples
-#' forager_data() |>
+#' mock_forager() |>
 #'   count_prop(payer, sort = TRUE)
 #'
 #' @autoglobal
@@ -320,7 +320,7 @@ count_prop <- function(df, var, sort = FALSE, na.rm = FALSE) {
 #'   the count, default is `FALSE`
 #'
 #' @examples
-#' forager_data(10) |>
+#' mock_forager(10) |>
 #'   count_prop_multi(
 #'   c(ins_class),
 #'   payer,
@@ -344,7 +344,7 @@ count_prop_multi <- function(df, rows, cols, sort = FALSE, na.rm = FALSE) {
 #' @param cols A `<character>` or `<symbol>` specifying the columns to count
 #'
 #' @examples
-#' fuimus:::forager_data(10) |>
+#' mock_forager(10) |>
 #'   count_wide(c(ins_class), payer)
 #'
 #' @autoglobal