Zipcode to CBSA - zipcode_CBSA

Data - Crosswalks

~/data/crosswalks/

All

zipcode_CBSA %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Los Angeles-Long Beach-Santa Ana, CA

zipcode_CBSA %>%
  filter(cbsa_name == "Los Angeles-Long Beach-Santa Ana, CA") %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

New York-Northern New Jersey-Long Island, NY-NJ-PA

zipcode_CBSA %>%
  filter(cbsa_name == "New York-Northern New Jersey-Long Island, NY-NJ-PA") %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}