Skip to content

Commit

Permalink
Fix formatters functions
Browse files Browse the repository at this point in the history
  • Loading branch information
edelarua committed Nov 22, 2023
1 parent 7b9b732 commit f49f488
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions R/utils_ggplot.R
Original file line number Diff line number Diff line change
Expand Up @@ -35,11 +35,11 @@
#' @export
rtable2gg <- function(tbl, fontsize = 4, colwidths = NULL, lbl_col_padding = 0) {
mat <- rtables::matrix_form(tbl)
mat_strings <- rtables::mf_strings(mat)
mat_aligns <- rtables::mf_aligns(mat)
mat_indent <- rtables::mf_rinfo(mat)$indent
mat_display <- rtables::mf_display(mat)
nlines_hdr <- rtables::mf_nlheader(mat)
mat_strings <- formatters::mf_strings(mat)
mat_aligns <- formatters::mf_aligns(mat)
mat_indent <- formatters::mf_rinfo(mat)$indent
mat_display <- formatters::mf_display(mat)
nlines_hdr <- formatters::mf_nlheader(mat)
shared_hdr_rows <- which(apply(mat_display, 1, function(x) (any(!x))))

tbl_df <- data.frame(mat_strings)
Expand Down

0 comments on commit f49f488

Please sign in to comment.