archive up to date, 2009-2024

andrewallenbruce · Nov 23, 2024 · 234ee7f · 234ee7f
1 parent f4b3999
commit 234ee7f
Show file tree

Hide file tree

Showing 39 changed files with 39 additions and 27,079 deletions.
diff --git a/data-raw/clean/csvs/nucc_taxonomy_100 b/data-raw/clean/csvs/nucc_taxonomy_100
diff --git a/data-raw/clean/csvs/nucc_taxonomy_101 b/data-raw/clean/csvs/nucc_taxonomy_101
diff --git a/data-raw/clean/csvs/nucc_taxonomy_110 b/data-raw/clean/csvs/nucc_taxonomy_110
diff --git a/data-raw/clean/csvs/nucc_taxonomy_111 b/data-raw/clean/csvs/nucc_taxonomy_111
diff --git a/data-raw/clean/csvs/nucc_taxonomy_120 b/data-raw/clean/csvs/nucc_taxonomy_120
diff --git a/data-raw/clean/csvs/nucc_taxonomy_121 b/data-raw/clean/csvs/nucc_taxonomy_121
diff --git a/data-raw/clean/csvs/nucc_taxonomy_130 b/data-raw/clean/csvs/nucc_taxonomy_130
diff --git a/data-raw/clean/csvs/nucc_taxonomy_131 b/data-raw/clean/csvs/nucc_taxonomy_131
diff --git a/data-raw/clean/csvs/nucc_taxonomy_140 b/data-raw/clean/csvs/nucc_taxonomy_140
diff --git a/data-raw/clean/csvs/nucc_taxonomy_141 b/data-raw/clean/csvs/nucc_taxonomy_141
diff --git a/data-raw/clean/csvs/nucc_taxonomy_150 b/data-raw/clean/csvs/nucc_taxonomy_150
diff --git a/data-raw/clean/csvs/nucc_taxonomy_151 b/data-raw/clean/csvs/nucc_taxonomy_151
diff --git a/data-raw/clean/csvs/nucc_taxonomy_160 b/data-raw/clean/csvs/nucc_taxonomy_160
diff --git a/data-raw/clean/csvs/nucc_taxonomy_161 b/data-raw/clean/csvs/nucc_taxonomy_161
diff --git a/data-raw/clean/csvs/nucc_taxonomy_170 b/data-raw/clean/csvs/nucc_taxonomy_170
diff --git a/data-raw/clean/csvs/nucc_taxonomy_171 b/data-raw/clean/csvs/nucc_taxonomy_171
diff --git a/data-raw/clean/csvs/nucc_taxonomy_180 b/data-raw/clean/csvs/nucc_taxonomy_180
diff --git a/data-raw/clean/csvs/nucc_taxonomy_181 b/data-raw/clean/csvs/nucc_taxonomy_181
diff --git a/data-raw/clean/csvs/nucc_taxonomy_190 b/data-raw/clean/csvs/nucc_taxonomy_190
diff --git a/data-raw/clean/csvs/nucc_taxonomy_191 b/data-raw/clean/csvs/nucc_taxonomy_191
diff --git a/data-raw/clean/csvs/nucc_taxonomy_200 b/data-raw/clean/csvs/nucc_taxonomy_200
diff --git a/data-raw/clean/csvs/nucc_taxonomy_201 b/data-raw/clean/csvs/nucc_taxonomy_201
diff --git a/data-raw/clean/csvs/nucc_taxonomy_210 b/data-raw/clean/csvs/nucc_taxonomy_210
diff --git a/data-raw/clean/csvs/nucc_taxonomy_211 b/data-raw/clean/csvs/nucc_taxonomy_211
diff --git a/data-raw/clean/csvs/nucc_taxonomy_220 b/data-raw/clean/csvs/nucc_taxonomy_220
diff --git a/data-raw/clean/csvs/nucc_taxonomy_221 b/data-raw/clean/csvs/nucc_taxonomy_221
diff --git a/data-raw/clean/csvs/nucc_taxonomy_230 b/data-raw/clean/csvs/nucc_taxonomy_230
diff --git a/data-raw/clean/csvs/nucc_taxonomy_231 b/data-raw/clean/csvs/nucc_taxonomy_231
diff --git a/data-raw/clean/csvs/nucc_taxonomy_240 b/data-raw/clean/csvs/nucc_taxonomy_240
diff --git a/data-raw/clean/csvs/nucc_taxonomy_241 b/data-raw/clean/csvs/nucc_taxonomy_241
diff --git a/data-raw/clean/csvs/nucc_taxonomy_90 b/data-raw/clean/csvs/nucc_taxonomy_90
diff --git a/data-raw/clean/csvs/nucc_taxonomy_91 b/data-raw/clean/csvs/nucc_taxonomy_91
diff --git a/data-raw/clean/nucc_taxonomy.tar.xz b/data-raw/clean/nucc_taxonomy.tar.xz
diff --git a/data-raw/nucc_pins.R b/data-raw/nucc_pins.R
@@ -24,12 +24,36 @@ read_clean_csvs <- function(x) {
       dplyr::any_of(cols))
 }
 
-ark_taxonomy <- purrr::map(cleaned_csvs[1:20], read_clean_csvs) |>
-  purrr::list_rbind()
+ark_taxonomy <- purrr::map(cleaned_csvs, read_clean_csvs) |>
+  purrr::list_rbind() |>
+  dplyr::arrange(release_date) |>
+  dplyr::mutate(definition = stringr::str_replace(definition, "Definition to come[\\.]{1,5}", "Definition to come."))
 
 pin_update(
   ark_taxonomy,
   name = "ark_taxonomy",
-  title = "NUCC Taxonomy Archive",
-  description = "Health Care Provider Taxonomy Code Set Archive"
+  title = "NUCC Taxonomy Archive 2009-2024",
+  description = "Health Care Provider Taxonomy Code Set Archive 2009-2024"
 )
+
+
+
+
+# ARCHIVE
+archive::archive_write_files(
+  archive = here::here("data-raw/clean/nucc_taxonomy.tar.xz"),
+  files = c(
+    glue::glue("{here::here()}/data-raw/raw/infotable.csv"),
+    fs::dir_info(glue::glue("{here::here()}/data-raw/clean/csvs"))$path
+  )
+)
+
+fs::dir_delete(glue::glue("{here::here()}/data-raw/clean/csvs"))
+
+archive::archive(file = here::here("data-raw/clean/nucc_taxonomy.tar.xz"))
+
+readr::read_csv(
+  file = archive::archive_read(archive = here::here("data-raw/clean/nucc_taxonomy.tar.xz"), file = 2L),
+  show_col_types = FALSE,
+  col_types = "c",
+  name_repair = janitor::make_clean_names)
diff --git a/inst/extdata/pins/_pins.yaml b/inst/extdata/pins/_pins.yaml
@@ -1,2 +1,2 @@
 ark_taxonomy:
-- ark_taxonomy/20241122T213627Z-edbae/
+- ark_taxonomy/20241123T123536Z-27310/
diff --git a/inst/extdata/pins/ark_taxonomy/20241122T213627Z-edbae/ark_taxonomy.qs b/inst/extdata/pins/ark_taxonomy/20241122T213627Z-edbae/ark_taxonomy.qs
diff --git a/inst/extdata/pins/ark_taxonomy/20241122T213627Z-edbae/data.txt b/inst/extdata/pins/ark_taxonomy/20241122T213627Z-edbae/data.txt
diff --git a/inst/extdata/pins/ark_taxonomy/20241123T123536Z-27310/ark_taxonomy.qs b/inst/extdata/pins/ark_taxonomy/20241123T123536Z-27310/ark_taxonomy.qs
diff --git a/inst/extdata/pins/ark_taxonomy/20241123T123536Z-27310/data.txt b/inst/extdata/pins/ark_taxonomy/20241123T123536Z-27310/data.txt
@@ -0,0 +1,10 @@
+file: ark_taxonomy.qs
+file_size: 1185829
+pin_hash: 27310a12cf55e09b
+type: qs
+title: NUCC Taxonomy Archive 2009-2024
+description: Health Care Provider Taxonomy Code Set Archive 2009-2024
+tags: ~
+urls: ~
+created: 20241123T123536Z
+api_version: 1