R/apply_format.R

In ianmoran11/mmtable2: Create and combine tables with a ggplot2/patchwork syntax

#' Apply formating to a mmtable
#'
#' @param mmtable an mmtable
#' @param format_list a list of styles of the same format as the gt::tab_style list argument https://gt.rstudio.com/reference/tab_style.html.
#' @return mmtable
#' @export
#' @importFrom magrittr %>%
#' @importFrom gt tab_spanner

apply_format <- function(mmtable, format_list){

# browser()
  # format_list %>% str()

  # format_list$func

 if(format_list$func == "cells_format"){
 locations_list <- get_locations(mmtable = mmtable,func = format_list$func, cell_predicate = format_list$cell_predicate)
 }

 if(format_list$func == "header_format"){

 locations_list <- get_locations(mmtable = mmtable,
                                 header = format_list$header,
                                 func = format_list$func,
                                 scope =ifelse(length(format_list$format_list$scope)==0, "cell",format_list$format_list$scope))
 }

  if(format_list$func == "table_format"){

    locations_list = format_list$locations

    if(locations_list[1] == "all"){

      locations_list <- cells_body(rows = 1:nrow(mmtable$`_data`), columns =  1:ncol(mmtable$`_data`))

      invoke_list <- list(data=mmtable,locations =locations_list) %>% append(.,  format_list$format_list)

      return_table <- invoke(tab_style,.x =  invoke_list)

      return(return_table)

    }

    # browser()

    invoke_list <- list(data=mmtable,locations =locations_list) %>% append(.,  format_list$format_list)

    return_table <- invoke(tab_style,.x =  invoke_list)
    return(return_table)

  }

  if(all(is.na(unlist(locations_list)))){

    return(mmtable)
  }

  all_cells_locations <-
  tidyr::crossing(rows = 1:nrow(mmtable$`_data`), cols = 1:ncol(mmtable$`_data`))  %>%
    mutate(all_cells_locations = map2(rows,cols, ~ list(row = .x, col= .y) )) %>% pull(all_cells_locations)

  # browser()
  append(list(mmtable), locations_list) %>% reduce(format_a_loc,format_list = format_list)


}