# \donttest{
# Import All Data
fm_import <- load_bls_dataset("fm", which_data = "all")
# Get $data element
fm_data <- fm_import$data
# Filter to a Series
# Families with Children Under 6 and No Employed Parent
u6_no_emp <- fm_data |>
dplyr::filter(series_title == "Total families with children under 6 - with no parent employed") |>
dplyr:: select(year, value, fchld_text, fhlf_text, tdat_text)
head(u6_no_emp)
# }
if (FALSE) {
# Examples requiring manual intervention in the console
# Download Employer Cost Index Data
cost_index <- load_bls_dataset("ci")
# Download separated data, series, and mapping columns
benefits <- load_bls_dataset("eb", return_full = TRUE)
# Download data without removing excess columns and value conversions
productivity <- load_bls_dataset("mp", simplify_table = FALSE)
# Check for download issues
if (has_bls_issues(cost_index)) {
print_bls_warnings(cost_index, detailed = TRUE)
}
}
Run the code above in your browser using DataLab