# Microdata extracts
usa_extract <- define_extract_micro(
collection = "usa",
description = "2013 ACS Data",
samples = "us2013a",
variables = c("SEX", "AGE", "YEAR")
)
# Add new samples and variables
add_to_extract(
usa_extract,
samples = c("us2014a", "us2015a"),
variables = var_spec("MARST", data_quality_flags = TRUE)
)
# Update existing variables
add_to_extract(
usa_extract,
variables = var_spec("SEX", case_selections = "1")
)
# Modify/add multiple variables
add_to_extract(
usa_extract,
variables = list(
var_spec("SEX", case_selections = "1"),
var_spec("RELATE")
)
)
# NHGIS extracts
nhgis_extract <- define_extract_nhgis(
datasets = ds_spec(
"1990_STF1",
data_tables = c("NP1", "NP2"),
geog_levels = "county"
)
)
# Add a new dataset or time series table
add_to_extract(
nhgis_extract,
datasets = ds_spec(
"1980_STF1",
data_tables = "NT1A",
geog_levels = c("county", "state")
)
)
# Update existing datasets/time series tables
add_to_extract(
nhgis_extract,
datasets = ds_spec("1990_STF1", c("NP1", "NP2"), "state")
)
# Modify/add multiple datasets or time series tables
add_to_extract(
nhgis_extract,
time_series_tables = list(
tst_spec("CW3", geog_levels = "state"),
tst_spec("CW4", geog_levels = "state")
)
)
# Values that can only take a single value are replaced
add_to_extract(nhgis_extract, data_format = "fixed_width")$data_format
Run the code above in your browser using DataLab