# Basic extraction (Quadrant I + households column)
x <- input_flow_get(
data_table = iotable_get(),
empty_remove = FALSE,
households = TRUE
)
# Quadrant I only (no households column)
y <- input_flow_get(
data_table = iotable_get(),
empty_remove = FALSE,
households = FALSE
)
Run the code above in your browser using DataLab