## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(actiwalkability)

## ----addresses----------------------------------------------------------------
addresses <- dplyr::tibble(
  address_id = c("address_1", "address_2", "address_3"),
  address = c(
    "Pre-geocoded address in Baltimore County, MD",
    "Pre-geocoded address in Baltimore County, MD",
    "Pre-geocoded address in Baltimore City, MD"
  ),
  geoid = c("240054519002", "240054026041", "245102303002")
)

addresses

## ----make-geoid---------------------------------------------------------------
acti_fips12(state = 24, county = 510, tract = 60400, block = 2002)

## ----query-epa, eval = FALSE--------------------------------------------------
# walkability <- acti_epa_walkability(
#   unique(addresses$geoid),
#   geometry = FALSE
# )
# 
# walkability

## ----join-back, eval = FALSE--------------------------------------------------
# address_walkability <- dplyr::left_join(
#   addresses,
#   walkability,
#   by = c("geoid" = "GEOID10")
# )
# 
# dplyr::select(
#   address_walkability,
#   address_id, address, geoid, NatWalkInd, cat_walk_index
# )

## ----censusxy-example, eval = FALSE-------------------------------------------
# geocoded <- censusxy::cxy_geocode(
#   address_data,
#   street = "street",
#   city = "city",
#   state = "state",
#   zip = "zip",
#   return = "geographies",
#   vintage = "Census2010_Current"
# )
# 
# geocoded$geoid <- acti_fips12(
#   geocoded$cxy_state_id,
#   geocoded$cxy_county_id,
#   geocoded$cxy_tract_id,
#   geocoded$cxy_block_id
# )

## ----selected-fields, eval = FALSE--------------------------------------------
# study_area_walkability <- acti_epa_walkability(
#   geoid = NULL,
#   geometry = FALSE,
#   filter_geom = study_area,
#   predicate = "intersects",
#   fields = c("GEOID10", "NatWalkInd", "D2A_EPHHM", "D2B_E8MIXA", "D3b", "D4a")
# )