R/create_tidytable.R

In ianmoran11/tidyABS: The tidyABS package converts ABS excel tables to tidy data frames.

#' create_tidytable
#'
#' This is a utility function that reshapes the data using unpivotr functions (which are specified in the head dataframes)
#' @param col_groups output of `process_sheet`
#' @param row_groups output of `process_sheet`
#' @param meta_df output of `process_sheet`
#' @param tabledata output of `process_sheet`
#'


create_tidytable <- function(col_groups, row_groups, meta_df, tabledata) {
  bind_rows(col_groups, row_groups, meta_df) -> col_groups


  tabledata <- tabledata %>%
    group_by(row, col, comment) %>%
    nest() %>%
    mutate(value = data %>% map_chr(~ .x[[1, 1]])) %>%
    select(-data)

  map2(col_groups$data, col_groups$direction, ~ enhead_tabledata(header_data = .x, direction = .y, values = tabledata)) %>%
    reduce(full_join)
}