Nothing
## ----setup, include=FALSE-----------------------------------------------------
library(zipcodeR)
real_estate_data <- tibble::tribble(
~postal_code, ~zip_name,
"34102", "naples, fl",
"64105", "kansas city, mo",
"33544", "wesley chapel, fl",
"76550", "lampasas, tx",
"85335", "el mirage, az",
"61264", "milan, il",
"51551", "malvern, ia",
"95380", "turlock, ca",
"50438", "garner, ia",
"62895", "wayne city, il"
)
real_estate_data <- dplyr::filter(real_estate_data,nchar(postal_code) == 5)
knitr::opts_chunk$set(echo = TRUE)
set.seed(1000)
## -----------------------------------------------------------------------------
search_state('NY')
## -----------------------------------------------------------------------------
nyzip <- search_state('NY')$zipcode
## -----------------------------------------------------------------------------
states <- c('NY','NJ','CT')
search_state(states)
## -----------------------------------------------------------------------------
search_county('Ocean','NJ')
## -----------------------------------------------------------------------------
search_county("ST BERNARD","LA", similar = TRUE)$zipcode
## -----------------------------------------------------------------------------
head(real_estate_data)
## -----------------------------------------------------------------------------
real_estate_data[1,]
## -----------------------------------------------------------------------------
# Get the ZIP code of the first row of data
zip_code <- real_estate_data[1,]$postal_code
# Pass the ZIP code to the reverse_zipcode() function
reverse_zipcode(zip_code)
## -----------------------------------------------------------------------------
get_tracts(zip_code)
## -----------------------------------------------------------------------------
is_zcta(zip_code)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.