## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = identical(Sys.getenv("IN_PKGDOWN"), "true")
)

## ----install, eval = FALSE----------------------------------------------------
# install.packages("brfssdata")

## ----install-dev, eval = FALSE------------------------------------------------
# pak::pak("muntasirmasum/brfssdata")

## ----first-read, message = FALSE----------------------------------------------
# library(brfssdata)
# library(dplyr)
# 
# dat <- read_brfss(2023, vars = c("GENHLTH", "PHYSHLTH"))
# dat

## ----first-count--------------------------------------------------------------
# dat |>
#   count(GENHLTH) |>
#   arrange(GENHLTH)

## ----formula-backticks, eval = FALSE------------------------------------------
# svyglm(fairpoor ~ `_EDUCAG`, design = des, family = quasibinomial())

## ----janitor, eval = FALSE----------------------------------------------------
# read_brfss(2023, vars = c("GENHLTH", "_EDUCAG")) |>
#   janitor::clean_names()

## ----case-insensitive---------------------------------------------------------
# names(read_brfss(2023, vars = "genhlth"))

## ----unknown-var, error = TRUE------------------------------------------------
try({
# read_brfss(2023, vars = "SMOKING")
})

## ----years--------------------------------------------------------------------
# brfss_years()

## ----combine------------------------------------------------------------------
# drinks <- read_brfss(2021:2023, vars = c("_DRNKWK1", "_DRNKWK2"))
# 
# drinks |>
#   summarise(
#     n = n(),
#     drnkwk1 = sum(!is.na(`_DRNKWK1`)),
#     drnkwk2 = sum(!is.na(`_DRNKWK2`)),
#     .by = year
#   ) |>
#   arrange(year)

## ----search-------------------------------------------------------------------
# brfss_vars("smok")

## ----search-years-------------------------------------------------------------
# brfss_vars("binge", years = 2021:2023)

## ----labels-genhlth-----------------------------------------------------------
# brfss_labels("GENHLTH", years = 2023)

## ----labels-true--------------------------------------------------------------
# read_brfss(2023, vars = c("GENHLTH", "SEXVAR"), labels = TRUE)

## ----labels-na----------------------------------------------------------------
# read_brfss(2023, vars = "GENHLTH", labels = TRUE, na = TRUE) |>
#   count(GENHLTH)

## ----missing-codes------------------------------------------------------------
# brfss_missing_codes("GENHLTH", years = 2023)

## ----labels-physhlth----------------------------------------------------------
# brfss_labels("PHYSHLTH", years = 2023)

## ----physhlth-recode, eval = FALSE--------------------------------------------
# read_brfss(2023, vars = "PHYSHLTH", na = TRUE) |>
#   mutate(PHYSHLTH = replace(PHYSHLTH, PHYSHLTH == 88, 0))

## ----cache--------------------------------------------------------------------
# brfss_cache_dir()
# brfss_cache_info()

## ----offline------------------------------------------------------------------
# nrow(read_brfss(2023, vars = "GENHLTH", download = FALSE))

## ----prefetch, eval = FALSE---------------------------------------------------
# brfss_download(2019:2023)

## ----cache-clear, eval = FALSE------------------------------------------------
# brfss_cache_clear(2021)
# brfss_cache_clear()
# brfss_cache_clear(catalogs = TRUE)

## ----design, message = FALSE--------------------------------------------------
# library(srvyr)
# 
# brfss_design(2023, vars = "GENHLTH") |>
#   filter(!is.na(GENHLTH)) |>
#   group_by(GENHLTH) |>
#   summarize(pct = survey_prop(vartype = "ci"))

## ----break-error, error = TRUE------------------------------------------------
try({
# brfss_design(2009:2013)
})

## ----break-allow, eval = FALSE------------------------------------------------
# brfss_design(2009:2013, allow_break = TRUE)

## ----citation, eval = TRUE----------------------------------------------------
citation("brfssdata")