moved utils to fuimus (closes #5)

andrewallenbruce · Apr 17, 2024 · d217f81 · d217f81
1 parent 5802e79
commit d217f81
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 59 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -18,4 +18,3 @@ export(mount_board)
 export(remove_dot)
 export(search_edits)
 export(search_msdrg)
-export(years_floor)
diff --git a/R/icd_edits.R b/R/icd_edits.R
@@ -20,8 +20,7 @@
 #' @autoglobal
 #'
 #' @export
-search_edits <- function(icd = NULL,
-                         ...) {
+search_edits <- function(icd = NULL, ...) {
 
   edt <- pins::pin_read(mount_board(), "code_edits")
 
@@ -30,35 +29,6 @@ search_edits <- function(icd = NULL,
   return(edt)
 }
 
-
-#' Calculate the number of years between two dates
-#'
-#' @param from `<date>` Start date
-#'
-#' @param to `<date>` End date
-#'
-#' @template returns
-#'
-#' @examples
-#' years_floor(
-#'    from = as.Date("2020-01-01"),
-#'    to   = as.Date("2020-01-01") + 2057)
-#'
-#' @autoglobal
-#'
-#' @export
-years_floor <- function(from, to) {
-  floor(
-    as.integer(
-      difftime(
-        to,
-        from,
-        units = "weeks",
-        tz = "UTC"
-        )
-      ) / 52.17857)
-}
-
 #' Apply Age Conflict Edits
 #'
 #' @param rule `<chr>` ICD-10-CM Conflict Rule

diff --git a/man/years_floor.Rd b/man/years_floor.Rd
diff --git a/vignettes/pathologie.Rmd b/vignettes/pathologie.Rmd
@@ -128,9 +128,10 @@ ex_data() |>
   dplyr::mutate(conflict = apply_age_edits(rule = icd_conflict_rule,
                                            age = patient_age)) |>
   dplyr::filter(!is.na(conflict)) |> 
-  dplyr::select(-icd_conflict_group, -conflict) |> 
+  dplyr::select(-icd_conflict_group) |>
   gt(groupname_col = "icd_conflict_rule",
      row_group_as_column = TRUE) |> 
-  gt_style()
+  gt_style() |> 
+  tab_options(column_labels.hidden = FALSE)
 ```