added date regex to common_regex (closes #7)

refactored mock data generators

NAMESPACE

@@ -38,7 +38,6 @@ export(duration_vec)
 export(expand_date_range)
 export(fancy_ts)
 export(find_common_order)
-export(forager_data)
 export(gchop)
 export(geomean)
 export(get_pin)
@@ -56,6 +55,8 @@ export(is_valid_npi)
 export(is_valid_npi2)
 export(list_pins)
 export(make_interval)
+export(mock_forager)
+export(mock_provider)
 export(mount_board)
 export(na_if_common)
 export(named_group_split)
@@ -66,7 +67,6 @@ export(percentage_calculator)
 export(percentage_change)
 export(percentage_difference)
 export(print_ls)
-export(provider_data)
 export(random_npi_generator)
 export(rate_of_return)
 export(remove_quiet)

R/describe.R

@@ -7,9 +7,9 @@
 #' @returns `<tibble>` of summary statistics
 #'
 #' @examples
-#' describe(fuimus:::provider_data(2000:2020))
+#' describe(mock_provider(2000:2020))
 #'
-#' describe(fuimus:::forager_data(200), !dplyr::starts_with("date"))
+#' describe(mock_forager(200), !dplyr::starts_with("date"))
 #'
 #' @autoglobal
 #'
@@ -140,9 +140,9 @@ histo <- function(x, width = 10) {
 #'
 #' @examples
 #'
-#' describe_unique(fuimus:::forager_data(), claim_id, payer)
+#' describe_unique(mock_forager(), ins_class, payer)
 #'
-#' # describe_unique(fuimus:::forager_data(200), names(df)[2:3])
+#' # describe_unique(mock_forager(200), names(df)[2:3])
 #'
 #' @autoglobal
 #'

R/mock.R

@@ -0,0 +1,63 @@
+#' Generate simple data frame for testing
+#'
+#' @param years `<int>` vector (`c(2020, 2021, 2023)`) or sequence of years
+#'   (`2010:2020`)
+#'
+#' @returns A [tibble][tibble::tibble-package] containing the search results.
+#'
+#' @examples
+#' mock_provider(2010:2020)
+#'
+#' mock_provider(c(2020, 2021, 2023))
+#'
+#' @autoglobal
+#'
+#' @family mock
+#'
+#' @export
+mock_provider <- \(years) {
+
+  lng <- length(years)
+
+  dplyr::tibble(
+    year = rep.int(years, 2),
+    group = rep(c("A", "B"), each = lng),
+    payment = sample(10000:20000, lng * 2))
+}
+
+#' Generate mock coding/billing data frame
+#'
+#' @param rows `<int>` number of rows to generate; default is 10
+#'
+#' @param nest `<lgl>` whether to nest the dates column; default is `TRUE`
+#'
+#' @returns A [tibble][tibble::tibble-package]
+#'
+#' @examples
+#' mock_forager(rows = 5)
+#'
+#' @autoglobal
+#'
+#' @family mock
+#'
+#' @export
+mock_forager <- function(rows = 10, nest = TRUE){
+
+  payer_names <- c("Medicare", "Medicaid", "Cigna", "Humana", "UHC", "Anthem", "BCBS", "Centene")
+
+  x <- dplyr::tibble(
+    claim_id             = as.character(wakefield::id(n = rows)),
+    date_of_service      = wakefield::dob(n = rows, start = Sys.Date() - 730, random = TRUE, k = 12, by = "-1 months"),
+    payer                = fixtuRes::set_vector(rows, set = payer_names),
+    ins_class            = fixtuRes::set_vector(rows, set = c("Primary", "Secondary")),
+    balance              = as.double(wakefield::income(n = rows, digits = 2) / 300),
+    date_of_release      = date_of_service + round(abs(stats::rnorm(length(date_of_service), 11, 4))),
+    date_of_submission   = date_of_release + round(abs(stats::rnorm(length(date_of_release), 2, 2))),
+    date_of_acceptance   = date_of_submission + round(abs(stats::rnorm(length(date_of_submission), 3, 2))),
+    date_of_adjudication = date_of_acceptance + round(abs(stats::rnorm(length(date_of_acceptance), 30, 3))))
+
+  if (nest)
+    return(tidyr::nest(x, dates = tidyr::contains("date")))
+
+  x
+}

R/regex.R

@@ -221,7 +221,7 @@ pos_nchar <- function(x) {
 #' @autoglobal
 #'
 #' @export
-common_regex <- function(x = c("month_date", "month", "url")) {
+common_regex <- function(x = c("month_date", "month", "url", "date")) {
 
   x <- match.arg(x)
 
@@ -241,8 +241,12 @@ common_regex <- function(x = c("month_date", "month", "url")) {
       \u00a1-\uffff](?:-)*)*(?:[a-z0-9\u00a1-\uffff])+)(?:\\.(?:[a-z0-9
       \u00a1-\uffff](?:-)*)*(?:[a-z0-9\u00a1-\uffff])+)*(?:\\.(?:[a-z0-9
       \u00a1-\uffff]){2,})(?::(?:\\d){2,5})?(?:/(?:\\S)*)?$"
+    ),
+    date = single_line_string(
+      "\\b\\d{4}[-/]\\d{2}[-/]\\d{2}\\b|\\b\\d{2}[-/]\\d{2}[-/]\\d{4}\\b|
+      \\d{6}|\\b\\d{1,2}[-/.]\\d{1,2}[-/.]\\d{2,4}\\b"
+      )
     )
-  )
 
   reg[[x]]
 }