Added 2019-2023 data for parents

jjchern · Feb 19, 2024 · f79b11a · f79b11a
1 parent 12bd308
commit f79b11a
Show file tree

Hide file tree

Showing 4 changed files with 84 additions and 85 deletions.
diff --git a/R/data.R b/R/data.R
@@ -3,7 +3,7 @@
 #' @source [Medicaid Income Eligibility Limits for Parents, 2002-2018](https://www.kff.org/medicaid/state-indicator/medicaid-income-eligibility-limits-for-parents/)
 "parents"
 
-#' Medicaid Income Eligibility Limits for Childless Adults, 2011-2018
+#' Medicaid Income Eligibility Limits for Childless Adults, 2011-2023
 #'
 #' @source [Medicaid Income Eligibility Limits for Other Non-Disabled Adults, 2011-2018](https://www.kff.org/medicaid/state-indicator/medicaid-income-eligibility-limits-for-other-non-disabled-adults/)
 "childless_adults"

diff --git a/README.Rmd b/README.Rmd
@@ -41,7 +41,7 @@ The R package `melig` contains information on **M**edicaid income **elig**ibilit
     - [Medicaid/CHIP Upper Income Eligibility Limits for Children, 2000-2018](https://www.kff.org/medicaid/state-indicator/medicaidchip-upper-income-eligibility-limits-for-children/)
 
 - `prenant_wom.rda`: [Medicaid and CHIP Income Eligibility Limits for Pregnant Women, 2003-2023](https://www.kff.org/medicaid/state-indicator/medicaid-and-chip-income-eligibility-limits-for-pregnant-women/)
-- `parents.rda`: [Medicaid Income Eligibility Limits for Parents, 2002-2018](https://www.kff.org/medicaid/state-indicator/medicaid-income-eligibility-limits-for-parents/)
+- `parents.rda`: [Medicaid Income Eligibility Limits for Parents, 2002-2023](https://www.kff.org/medicaid/state-indicator/medicaid-income-eligibility-limits-for-parents/)
 - `childless_adults.rda`:  [Medicaid Income Eligibility Limits for Other Non-Disabled Adults, 2011-2018](https://www.kff.org/medicaid/state-indicator/medicaid-income-eligibility-limits-for-other-non-disabled-adults/)
 
 The datasets are stored in tidy format (long table).

diff --git a/data-raw/parents.R b/data-raw/parents.R
@@ -3,11 +3,10 @@
 
 library(tidyverse)
 
-read_csv("data-raw/parents.csv", skip = 2) %>%
+read_csv("data-raw/parents.csv", skip = 2, n_max = 52) %>%
   select(-Footnotes) %>%
-  filter(Location != "United States") %>%
   rename(state = Location) %>%
-  inner_join(fips::fips, by = "state") %>%
+  left_join(fips::fips, by = "state") %>%
   select(state, fips, usps, everything()) %>%
   gather(year, cutoff, -state:-usps) %>%
   separate(year, c("month", "year")) %>%