fix errors and warnings

NAMESPACE

@@ -1,23 +1,18 @@
 # Generated by roxygen2: do not edit by hand
 
-export(add_counties)
 export(affiliations)
+export(api_names)
 export(bene_years)
 export(beneficiaries)
 export(betos)
-export(change)
-export(chg)
 export(clinicians)
 export(compare_hcpcs)
-export(datasets)
 export(df2chr)
 export(display_long)
 export(distros_dac)
 export(distros_main)
 export(distros_open)
-export(duration_vec)
 export(gen_data)
-export(geomean)
 export(get_pin)
 export(gt_check_xmark)
 export(gt_datadict)
@@ -28,7 +23,6 @@ export(hospitals)
 export(laboratories)
 export(last_dttm)
 export(list_pins)
-export(make_interval)
 export(medline)
 export(mount_board)
 export(ndc_lookup)
@@ -40,7 +34,6 @@ export(opt_out)
 export(order_refer)
 export(out_years)
 export(outpatient)
-export(pct)
 export(pending)
 export(prescribers)
 export(prescribers_)
@@ -51,17 +44,13 @@ export(quality_eligibility_)
 export(quality_payment)
 export(quality_payment_)
 export(reassignments)
-export(ror)
 export(rx_years)
 export(rxnorm)
-export(summary_stats)
 export(taxonomy_crosswalk)
 export(tidyup)
 export(util_years)
 export(utilization)
 export(utilization_)
-export(years_df)
-export(years_vec)
 import(rlang)
 importFrom(collapse,"%=%")
 importFrom(collapse,"%==%")

R/calculations.R

@@ -2,7 +2,7 @@
 #'
 #' @description Common utility functions
 #'
-#' @examples
+#' @examplesIf FALSE
 #' ex <- gen_data(2020:2025)
 #' head(ex)
 #'

R/cms.R

@@ -265,5 +265,5 @@ api_years <- function(abb, year) {
 
   api <- cms_update(api)
 
-  fuimus::search_in(api, api[["year"]], year)
+  search_in(api, api[["year"]], year)
 }

R/format_api_params.R

@@ -191,5 +191,5 @@ api_years2 <- function(abb, year) {
 
   api <- cms_update(api)
 
-  fuimus::search_in(api, api[["year"]], year)
+  search_in(api, api[["year"]], year)
 }

R/generated-globals.R

@@ -9,6 +9,8 @@ utils::globalVariables(c(
   "a2la",
   # <laboratories>
   "aabb",
+  # <build_url2>
+  "abb",
   # <laboratories>
   "accredited",
   # <distros_open>
@@ -122,8 +124,6 @@ utils::globalVariables(c(
   "confirmed_date",
   # <ror>
   "copy",
-  # <add_counties>
-  "county_fips",
   # <open_payments>
   "covered",
   # <open_payments>
@@ -308,8 +308,6 @@ utils::globalVariables(c(
   "organizations_individualScenario",
   # <quality_eligibility>
   "organizations_virtualGroups",
-  # <format_api_params>
-  "params",
   # <quality_payment>
   "participation_type",
   # <mips_2021>
@@ -371,7 +369,6 @@ utils::globalVariables(c(
   "specialty",
   # <mips_2021>
   "star_value",
-  # <add_counties>
   # <tidyup_geography.rx>
   # <tidyup_drug.rx>
   # <tidyup_provider.rx>
@@ -481,7 +478,5 @@ utils::globalVariables(c(
   # <distros_main>
   # <distros_open>
   "year",
-  # <add_counties>
-  "zip",
   NULL
 ))

R/utils.R

@@ -210,7 +210,7 @@ tidyup <- function(df,
   if (!is.null(chr))  x <- dplyr::mutate(x, dplyr::across(dplyr::contains(chr),  as.character))
   if (!is.null(up))   x <- dplyr::mutate(x, dplyr::across(dplyr::contains(up),   toupper))
   if (!is.null(cred)) x <- dplyr::mutate(x, dplyr::across(dplyr::contains(cred), clean_credentials))
-  if (!is.null(zip))  x <- dplyr::mutate(x, dplyr::across(dplyr::contains(zip),  zipcodeR::normalize_zip))
+  if (!is.null(zip))  x <- dplyr::mutate(x, dplyr::across(dplyr::contains(zip),  format_zipcode))
   if (!is.null(lgl))  x <- dplyr::mutate(x, dplyr::across(dplyr::contains(lgl),  as.logical))
 
   return(x)