R/cells_format.R

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

#' Format table cells
#'
#' @param cell_predicate an expression on the source data frame identifying which cells should be formatted.
#' @param ... dots.
#' @return format list
#' @export
#' @importFrom magrittr %>%
#' @importFrom rlang enquos
#' @examples
#' \dontrun{
#' gm_table_formatted <-
#'   gapminder_mm %>%
#'   dplyr::filter(var != "Life expectancy") %>%
#'   mmtable(cells = value) +
#'   header_top(year) +
#'   header_left(country) +
#'   header_top_left(var)  +
#'   header_left_top(continent)  +
#'   cells_format(cell_predicate = T, style = list(cell_text(align = "right"))) +
#'   header_format(header = year, style = list(cell_text(align = "right"))) +
#'   header_format("all_cols", style = list(cell_text(weight = "bolder"))) +
#'   header_format("all_rows", style = list(cell_text(weight = "bolder"))) +
#'   table_format(
#'     locations = cells_body(rows = c(1,3,5,7,9,11)),
#'     style = list(cell_borders(sides = "top",color = "grey"))) +
#'   table_source_note(source_note = "Excerpt of the Gapminder data" )
#' }

cells_format <- function(cell_predicate, ...){

  # browser()

  format_list <-
    list(list(cell_predicate = enquos(cell_predicate),func = "cells_format", format_list = list(formats = ...)))

  class(format_list) <- append("table_format_list",class(format_list))

  format_list_name <- paste0("format_",sample(LETTERS,size = 5) %>% paste(collapse = ""))


  names(format_list) <- format_list_name

  # format_list %>% str()

  format_list
}

#' Add cells formatting
#'
#' @param mmtable an mmtable object
#' @param ... arguments for add_cells_format
#' @return an mmtable
#' @export
#' @examples
#' \dontrun{
#'
#' library(tidyverse)
#'
#' gm_table_piped <-
#'   gapminder_mm %>%
#'   filter(var != "Life expectancy") %>%
#'   mmtable(cells = value, use_defaul_formats = T) %>%
#'   add_header_top(year) %>%
#'   add_header_left(country) %>%
#'   add_header_top_left(var)  %>%
#'   add_header_left_top(continent)  %>%
#'   add_cells_format(cell_predicate = T, style = list(cell_text(align = "right"))) %>%
#'   add_header_format(header = year, style = list(cell_text(align = "right"))) %>%
#'   add_header_format("all_cols", style = list(cell_text(weight = "bolder"))) %>%
#'   add_header_format("all_rows", style = list(cell_text(weight = "bolder"))) %>%
#'   add_table_format(
#'     locations = cells_body(rows = c(1,3,5,7,9,11)),
#'     style = list(cell_borders(sides = "top",color = "grey"))) %>%
#'   add_table_source_note(source_note = "Excerpt of the Gapminder dataset." )
#'
#' gm_table_piped
#' }
add_cells_format <- function(mmtable,...){
  `+`(mmtable, cells_format(...))
}