t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_desc(wt)
)
t %>%
build(metadata=TRUE)
m <- tibble::tibble(
row_id = c('x1_1'),
var1_3 = list(tplyr_meta(rlang::quos(a, b, c), rlang::quos(a==1, b==2, c==3)))
)
append_metadata(t, m)
Run the code above in your browser using DataLab