R/assemble_table_components.R

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

#' assemble_table_components
#'
#' Reshapes the table components to create a tidy data frame.
#' @param table_components produced by `process_sheet`
#'
#' @examples
#'
#'  \donttest{tidyABS_example("australian-industry.xlsx") %>% process_sheet(sheets = "Table_1") %>% assemble_table_components()  }
#'
#'
#'
#' @export

assemble_table_components <- function(table_componsents) {
  if (length(table_componsents) == 4) {
    bind_rows(table_componsents[1:3]) -> col_groups


    tabledata <- table_componsents[[4]] %>%
      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)
  } else {
    bind_rows(table_componsents[1:2]) -> col_groups


    tabledata <- table_componsents[[3]] %>%
      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)
  }
}