Skip to contents

get formatted cells

Usage

get_formatted_cells(obj, shell = FALSE)

# S4 method for TableTree
get_formatted_cells(obj, shell = FALSE)

# S4 method for ElementaryTable
get_formatted_cells(obj, shell = FALSE)

# S4 method for TableRow
get_formatted_cells(obj, shell = FALSE)

# S4 method for LabelRow
get_formatted_cells(obj, shell = FALSE)

get_cell_aligns(obj)

# S4 method for TableTree
get_cell_aligns(obj)

# S4 method for ElementaryTable
get_cell_aligns(obj)

# S4 method for TableRow
get_cell_aligns(obj)

# S4 method for LabelRow
get_cell_aligns(obj)

Arguments

obj

ANY. The object for the accessor to access or modify

shell

logical(1). Should the formats themselves be returned instead of the values with formats applied. Defaults to FALSE.

Value

the formatted print-strings for all (body) cells in obj.

Examples


library(dplyr)

iris2 <- iris %>%
  group_by(Species) %>%
  mutate(group = as.factor(rep_len(c("a", "b"), length.out = n()))) %>%
  ungroup()

tbl <- basic_table() %>%
  split_cols_by("Species") %>%
  split_cols_by("group") %>%
  analyze(c("Sepal.Length", "Petal.Width"), afun = list_wrap_x(summary), format = "xx.xx") %>%
  build_table(iris2)

get_formatted_cells(tbl)
#>       [,1]   [,2]   [,3]   [,4]   [,5]   [,6]  
#>  [1,] ""     ""     ""     ""     ""     ""    
#>  [2,] "4.40" "4.30" "5.00" "4.90" "4.90" "5.60"
#>  [3,] "4.80" "4.80" "5.60" "5.60" "6.20" "6.30"
#>  [4,] "5.00" "5.00" "5.90" "5.90" "6.50" "6.50"
#>  [5,] "5.02" "4.99" "5.99" "5.88" "6.50" "6.67"
#>  [6,] "5.30" "5.10" "6.40" "6.10" "6.70" "7.20"
#>  [7,] "5.80" "5.70" "7.00" "6.70" "7.70" "7.90"
#>  [8,] ""     ""     ""     ""     ""     ""    
#>  [9,] "0.10" "0.10" "1.00" "1.00" "1.40" "1.50"
#> [10,] "0.20" "0.20" "1.20" "1.20" "1.90" "1.80"
#> [11,] "0.20" "0.20" "1.30" "1.30" "2.10" "2.00"
#> [12,] "0.23" "0.26" "1.35" "1.30" "2.08" "1.98"
#> [13,] "0.20" "0.30" "1.50" "1.40" "2.30" "2.20"
#> [14,] "0.40" "0.60" "1.80" "1.70" "2.50" "2.50"