Skip to contents

Given a list of pivot_table objects and a transformation function that flattens a pivot_table object, transforms each object using the function and merges the results into a flat table.

Usage

flatten_table_list(lpt = list(), FUN)

Arguments

lpt

A list of pivot_table objects.

FUN

A function, transformation function that flattens a pivot_table object (it returns a tibble).

Value

A tibble, a flat table implemented by a tibble.

See also

pivot_table

Other flat table list functions: divide(), get_col_values()

Examples


f <- function(pt) {
 pt |>
    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()
}

pt <- pivot_table(df_set_h_v)
lpt <- pt |> divide()
ft <- flatten_table_list(lpt, f)