From 3561a169b42d3b4e3d5da633f4221191a2d80ef5 Mon Sep 17 00:00:00 2001 From: Will Curran-Groome Date: Thu, 5 Feb 2026 17:53:39 -0500 Subject: [PATCH] minor updates --- DESCRIPTION | 1 - R/get_business_patterns.R | 10 ---------- R/get_nfip_residential_penetration.R | 2 +- 3 files changed, 1 insertion(+), 12 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6997f6d..af6be4a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -29,7 +29,6 @@ Imports: ellmer, glue, ggplot2, - here, ipumsr, janitor, lehdr, diff --git a/R/get_business_patterns.R b/R/get_business_patterns.R index ee3691f..2ee6458 100644 --- a/R/get_business_patterns.R +++ b/R/get_business_patterns.R @@ -286,16 +286,6 @@ get_business_patterns = function(year = 2023, geo = "county", naics_code_digits year, zip_code, employees, employers, annual_payroll, industry, employee_size_range_label, employee_size_range_code, naics_code) } } - high_missingness = cbp %>% - skimr::skim() %>% - dplyr::filter(complete_rate < .9) %>% - dplyr::pull(skim_variable) - - if (length(high_missingness) > 0) { - warning( - stringr::str_c("Variables with high missingness in County Business Patterns", ": ", - base::paste(high_missingness, collapse = ", "))) } - return(cbp) } diff --git a/R/get_nfip_residential_penetration.R b/R/get_nfip_residential_penetration.R index 007999a..80c02ba 100644 --- a/R/get_nfip_residential_penetration.R +++ b/R/get_nfip_residential_penetration.R @@ -31,7 +31,7 @@ get_nfip_residential_penetration <- function( if (!file.exists(inpath)) { stop("The provided `file_name` is invalid.") } - df1 <- read.csv(file = inpath) %>% + df1 <- readr::read_csv(file = inpath) %>% janitor::clean_names() %>% dplyr::transmute( state_name = state,