added crosswalk_footnotes function

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(crosswalk_footnotes)
 export(crosswalk_raw)
 export(crosswalk_taxonomy)
 export(get_pin)

R/crosswalk.R

@@ -59,3 +59,37 @@ crosswalk_taxonomy <- function(taxonomy_code = NULL,
 
   return(pin)
 }
+
+#' Medicare Specialty Crosswalk Footnotes
+#'
+#' @param taxonomy_code `<chr>`  Health Care Provider Taxonomy code, a unique
+#'   alphanumeric code, ten characters in length
+#'
+#' @param specialty_code `<chr>`  Medicare Specialty Code, an alphanumeric code,
+#'   two characters in length
+#'
+#' @returns `<tibble>` of search results
+#'
+#' @examples
+#' crosswalk_footnotes(taxonomy_code = "251E00000X")
+#'
+#' crosswalk_footnotes(specialty_code = "A0)
+#'
+#' @importFrom fuimus search_in_if
+#'
+#' @autoglobal
+#'
+#' @export
+crosswalk_footnotes <- function(taxonomy_code = NULL,
+                               specialty_code = NULL) {
+
+  check_nchar(taxonomy_code, 10)
+  check_nchar(specialty_code, 2)
+
+  pin <- get_pin("cross_notes")
+
+  pin <- search_in_if(pin, pin[["taxonomy_code"]], taxonomy_code)
+  pin <- search_in_if(pin, pin[["specialty_code"]], specialty_code)
+
+  return(pin)
+}

R/taxonomy.R

@@ -14,6 +14,8 @@
 #'
 #' taxonomy_raw(taxonomy_code = "101Y00000X")
 #'
+#' taxonomy_raw(taxonomy_code = c("101YM0800X", "101YP2500X")) |> print(n = 100)
+#'
 #' @importFrom fuimus search_in_if
 #'
 #' @autoglobal
@@ -78,8 +80,11 @@ taxonomy_sources <- function(taxonomy_code = NULL) {
 #'
 #' @export
 taxonomy_changelog <- function(taxonomy_code = NULL) {
+
   check_nchar(taxonomy_code, 10)
+
   pin <- get_pin("tax_changelog")
+
   search_in_if(pin, pin[["code"]], taxonomy_code)
 }
 
@@ -101,8 +106,11 @@ taxonomy_changelog <- function(taxonomy_code = NULL) {
 #'
 #' @export
 taxonomy_hierarchy <- function(taxonomy_code = NULL) {
+
   check_nchar(taxonomy_code, 10)
+
   pin <- get_pin("tax_hierarchy")
+
   search_in_if(pin, pin[["code"]], taxonomy_code)
 }
 
@@ -124,8 +132,11 @@ taxonomy_hierarchy <- function(taxonomy_code = NULL) {
 #'
 #' @export
 taxonomy_display <- function(taxonomy_code = NULL) {
+
   check_nchar(taxonomy_code, 10)
+
   pin <- get_pin("tax_display")
+
   search_in_if(pin, pin[["code"]], taxonomy_code)
 }
 
@@ -147,7 +158,10 @@ taxonomy_display <- function(taxonomy_code = NULL) {
 #'
 #' @export
 taxonomy_definition <- function(taxonomy_code = NULL) {
+
   check_nchar(taxonomy_code, 10)
+
   pin <- get_pin("tax_definitions")
+
   search_in_if(pin, pin[["code"]], taxonomy_code)
 }

data-raw/12_crosswalk_footnotes.R

@@ -8,8 +8,46 @@ footnotes <- dplyr::tibble(
       "raw",
       "taxonomy_notes.txt")))
 
+
+notes <- walk |>
+  dplyr::left_join(footnotes, by = dplyr::join_by(type_note == note)) |>
+  dplyr::left_join(footnotes, by = dplyr::join_by(code_note == note)) |>
+  dplyr::filter(!is.na(type_note) | !is.na(code_note)) |>
+  dplyr::rename(
+    type_note_description = note_description.x,
+    code_note_description = note_description.y) |>
+  dplyr::select(-.id)
+
+
+notes <- vctrs::vec_rbind(
+  notes |>
+    dplyr::select(
+      taxonomy_code,
+      specialty_code,
+      # specialty_type,
+      type_note,
+      type_note_description) |>
+    dplyr::filter(!is.na(type_note) | !is.na(type_note_description)) |>
+    dplyr::mutate(
+      footnote = stringr::str_glue("({type_note}) {type_note_description}"),
+      type_note = NULL,
+      type_note_description = NULL),
+  notes |>
+    dplyr::select(
+      taxonomy_code,
+      specialty_code,
+      code_note,
+      code_note_description) |>
+    dplyr::filter(!is.na(code_note) | !is.na(code_note_description)) |>
+    dplyr::mutate(
+      footnote = stringr::str_glue("({code_note}) {code_note_description}"),
+      code_note = NULL,
+      code_note_description = NULL)
+)
+
+
 pin_update(
-  footnotes,
+  notes,
   "cross_notes",
   "Medicare Taxonomy Crosswalk Footnotes 2024",
   "Medicare Provider and Supplier Taxonomy Crosswalk Footnotes 2024"

inst/extdata/pins/_pins.yaml

@@ -1,5 +1,5 @@
 cross_notes:
-- cross_notes/20241202T103456Z-f72f3/
+- cross_notes/20241202T154954Z-7cf6a/
 cross_raw:
 - cross_raw/20241129T223149Z-59f58/
 cross_tax:

inst/extdata/pins/cross_notes/20241202T103456Z-f72f3/data.txt → inst/extdata/pins/cross_notes/20241202T154954Z-7cf6a/data.txt

@@ -1,10 +1,10 @@
 file: cross_notes.qs
-file_size: 981
-pin_hash: f72f35f03df16118
+file_size: 1296
+pin_hash: 7cf6a84209eb0b3a
 type: qs
 title: Medicare Taxonomy Crosswalk Footnotes 2024
 description: Medicare Provider and Supplier Taxonomy Crosswalk Footnotes 2024
 tags: ~
 urls: ~
-created: 20241202T103456Z
+created: 20241202T154954Z
 api_version: 1