distro work part 3 who cares

DESCRIPTION

@@ -16,9 +16,10 @@ BugReports: https://github.com/andrewallenbruce/provider/issues
 Depends: 
     R (>= 4.1.0)
 Imports: 
+    arrow,
     cli,
     collapse,
-    arrow,
+    data.table,
     dplyr,
     furrr,
     httr2,
@@ -33,9 +34,9 @@ Imports:
     stringr,
     tidyr,
     vctrs,
-    data.table,
     zeallot
 Suggests: 
+    cheapr,
     fipio,
     fontawesome,
     fuimus,
@@ -46,10 +47,12 @@ Suggests:
     htmltools,
     httptest2,
     knitr,
+    mlr3misc,
     roxyglobals,
     rvest,
     sf,
     stats,
+    stringfish,
     testthat (>= 3.0.0),
     zipcodeR
 VignetteBuilder: 

NAMESPACE

@@ -9,11 +9,12 @@ export(change)
 export(chg)
 export(clinicians)
 export(compare_hcpcs)
+export(datasets)
 export(df2chr)
 export(display_long)
-export(distributions_cms)
-export(distributions_natl)
-export(distributions_open)
+export(distros_dac)
+export(distros_main)
+export(distros_open)
 export(duration_vec)
 export(gen_data)
 export(geomean)
@@ -24,6 +25,7 @@ export(gt_prov)
 export(gt_qmark)
 export(hospitals)
 export(laboratories)
+export(last_dttm)
 export(make_interval)
 export(medline)
 export(ndc_lookup)
@@ -59,6 +61,14 @@ export(years_df)
 export(years_vec)
 import(rlang)
 importFrom(collapse,"%==%")
+importFrom(httr2,req_perform)
+importFrom(httr2,req_perform_parallel)
+importFrom(httr2,request)
+importFrom(httr2,resp_body_json)
+importFrom(httr2,resp_date)
+importFrom(httr2,resp_header)
+importFrom(httr2,resp_headers)
 importFrom(lifecycle,deprecated)
+importFrom(stats,setNames)
 importFrom(stringi,"%s+%")
 importFrom(zeallot,"%<-%")

R/affiliations.R

@@ -79,7 +79,7 @@ affiliations <- function(npi = NULL,
       "df"   ~ "Dialysis facility",
       .default = facility_type)
 
-    facility_type <- rlang::arg_match(
+    facility_type <- rlang::arg_match0(
       facility_type, c("Hospital",
                        "Long-term care hospital",
                        "Nursing home",

R/generated-globals.R

@@ -11,6 +11,8 @@ utils::globalVariables(c(
   "aabb",
   # <laboratories>
   "accredited",
+  # <distros_open>
+  "accrualPeriodicity",
   # <mips_2021>
   "aco_id_1",
   # <mips_2021>
@@ -84,6 +86,8 @@ utils::globalVariables(c(
   "applicable_manufacturer_or_applicable_gpo_making_payment_state",
   # <encode_param>
   "arg",
+  # <distros_main>
+  "arrow_cms",
   # <laboratories>
   "ashi",
   # <mips_2021>
@@ -139,24 +143,34 @@ utils::globalVariables(c(
   # <gt_datadict>
   "Definition",
   # <cms_dataset_search>
+  # <distros_open>
   "description",
   # <gt_datadict>
   "Description",
   # <cms_update>
   # <open_ids>
-  # <distributions_cms>
+  # <distros_main>
+  # <distros_open>
   "distribution",
   # <cms_update>
-  # <distributions_cms>
+  # <distros_main>
   "distribution_accessURL",
+  # <distros_open>
+  "distribution_data_describedBy",
+  # <distros_open>
+  "distribution_data_downloadURL",
+  # <distros_open>
+  "distribution_data_title",
   # <cms_update>
-  # <distributions_cms>
+  # <distros_main>
   "distribution_format",
+  # <distros_open>
+  "distribution_identifier",
   # <cms_update>
-  # <distributions_cms>
+  # <distros_main>
   "distribution_modified",
   # <cms_update>
-  # <distributions_cms>
+  # <distros_main>
   "distribution_title",
   # <outpatient>
   # <prescribers>
@@ -215,6 +229,7 @@ utils::globalVariables(c(
   # <cms_dataset_search>
   # <open_payments>
   # <open_ids>
+  # <distros_open>
   "identifier",
   # <hospitals>
   "incorp_state",
@@ -228,6 +243,8 @@ utils::globalVariables(c(
   "interval",
   # <mips_2021>
   "invs_msr",
+  # <distros_open>
+  "issued",
   # <laboratories>
   "jcaho",
   # <cms_dataset_search>
@@ -250,7 +267,8 @@ utils::globalVariables(c(
   # <cms_update>
   # <cms_dataset_search>
   # <open_ids>
-  # <distributions_cms>
+  # <distros_main>
+  # <distros_open>
   "modified",
   # <open_payments>
   # <cols_qelig>
@@ -337,8 +355,6 @@ utils::globalVariables(c(
   "recipient_state",
   # <reassignments>
   "record_type",
-  # <distributions_open>
-  "response",
   # <laboratories>
   "rgn_cd",
   # <tidyup_geography.util>
@@ -392,13 +408,16 @@ utils::globalVariables(c(
   "subtotal",
   # <medline>
   "summary._value",
+  # <distros_open>
+  "temporal",
   # <quality_eligibility>
   "timelength_days",
   # <cms_update>
   # <cms_dataset_search>
   # <medline>
   # <open_ids>
-  # <distributions_cms>
+  # <distros_main>
+  # <distros_open>
   "title",
   # <medline>
   "title._value",
@@ -458,7 +477,7 @@ utils::globalVariables(c(
   # <compare_hcpcs>
   # <open_ids>
   # <cols_qelig>
-  # <distributions_cms>
+  # <distros_main>
   "year",
   # <add_counties>
   "zip",

R/provider-package.R

@@ -5,7 +5,9 @@
 #' @importFrom lifecycle deprecated
 #' @importFrom zeallot %<-%
 #' @importFrom stringi %s+%
-#' @importFrom collapse %==%
 #' @import rlang
+#' @importFrom collapse %==%
+#' @importFrom httr2 request req_perform resp_body_json resp_date resp_headers resp_header req_perform_parallel
+#' @importFrom stats setNames
 ## usethis namespace: end
 NULL