df <- tibble::tibble(
row_type =
c(
"TABLE_BY_HEADER", "HEADER", "BY_HEADER1", "N", "VALUE",
"COUNTS", "UNIVAR", "NESTED", "NESTED"
),
nested_level = c(NA, NA, NA, NA, NA, NA, NA, 1, 2),
group_level = c(0, 0, 0, 0, 0, 0, 0, 0, 0),
label = c(NA, NA, NA, NA, NA, "N", NA, NA, NA),
by = c(NA, NA, NA, NA, NA, NA, NA, NA, NA),
tableby = c(NA, NA, NA, NA, NA, NA, NA, NA, NA),
anbr = c(1:9)
)
add_format(df)
Run the code above in your browser using DataLab