a_tibble <-
pt_ex |>
remove_top(1) |>
define_labels(n_col = 2, n_row = 2) |>
unpivot(include_page = FALSE)
a_tibble <-
pt_ex |>
set_page(1, 1) |>
remove_top(1) |>
define_labels(n_col = 2, n_row = 2) |>
remove_k() |>
replace_dec() |>
fill_values() |>
fill_labels() |>
remove_agg() |>
unpivot()
Run the code above in your browser using DataLab