diff --git a/NAMESPACE b/NAMESPACE
index a851ec0e..89d98d2a 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -75,6 +75,7 @@ export(get_ref_info)
export(get_titles_from_file)
export(get_visit_levels)
export(grouped_cols_w_diffs)
+export(grouped_cols_w_subgrps)
export(h_extract_coxreg_multivar)
export(h_get_design_mat)
export(h_tidy_pool)
@@ -159,6 +160,8 @@ export(s_summary_diff)
export(s_test_proportion_diff_mf)
export(safe_prune_table)
export(set_titles)
+export(shift_tbl_col_struct)
+export(some_v_all_col_struct)
export(stats_in_cols_setup)
export(string_to_title)
export(summarize_coxreg_multivar)
@@ -177,33 +180,23 @@ import(rtables)
import(tern)
import(tidytlg)
importFrom(assertthat,is.string)
-importFrom(formatters,
- with_label,
- wrap_string_ttype
-)
+importFrom(formatters,with_label)
+importFrom(formatters,wrap_string_ttype)
importFrom(generics,tidy)
-importFrom(rtables,
- in_rows,
- rcell
-)
-importFrom(stats,
- ave,
- complete.cases,
- setNames,
- t.test
-)
+importFrom(rtables,in_rows)
+importFrom(rtables,rcell)
+importFrom(stats,ave)
+importFrom(stats,complete.cases)
+importFrom(stats,setNames)
+importFrom(stats,t.test)
importFrom(survival,Surv)
-importFrom(tern,
- a_summary,
- control_analyze_vars,
- f_conf_level,
- fit_coxreg_multivar,
- get_covariates,
- get_stats,
- s_summary
-)
-importFrom(tibble,
- tibble,
- tribble
-)
+importFrom(tern,a_summary)
+importFrom(tern,control_analyze_vars)
+importFrom(tern,f_conf_level)
+importFrom(tern,fit_coxreg_multivar)
+importFrom(tern,get_covariates)
+importFrom(tern,get_stats)
+importFrom(tern,s_summary)
+importFrom(tibble,tibble)
+importFrom(tibble,tribble)
importFrom(utils,read.csv)
diff --git a/NEWS.md b/NEWS.md
index 665082d7..22816658 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -76,6 +76,7 @@ and introduce functions `jjcsformat_count_denom_fraction_legacy` and `jjcsformat
- Added `rightside()` to extract the right-hand side of a formula as a scalar character value.
- Added `a_three_tier()` as extension to `a_two_tier()`.
- Added formatting function `format_sigfig_j()` as alternative to `tern::format_sigfig()`. (#436)
+- Added new standard column structure functions: `make_multicomp_splfun()`, `grouped_cols_w_diffs()`, `grouped_cols_w_subgrps()`, `shift_tbl_col_struct()`, and `some_v_all_col_struct()`.
- Added varying decimal precision utility functions `fmt_spec_single_d`, `fmt_spec_df_d`, `fmt_spec_var_d`. (#474)
- Added utility functions `get_fmt_details` and `compare_fmt_specs` for reviewing format specification objects.
diff --git a/R/a_eair_j.R b/R/a_eair_j.R
index 730b8d69..21d54bf2 100644
--- a/R/a_eair_j.R
+++ b/R/a_eair_j.R
@@ -290,7 +290,7 @@ NULL
#' \item eair_diff_ci: Confidence interval for difference in EAIR between current group and reference group
#' (if `diff`=TRUE and `inriskdiffcol`=TRUE)
#' \item eair_diff_est_ci: Combination of `eair_diff_est` and `eair_diff_ci`.
-#' }\cr
+#' }
#' The list of available statistics (core columns) can also be viewed by
#' running `junco_get_stats("a_eair100_j")`.
#' @details
diff --git a/R/a_eair_strat_j.R b/R/a_eair_strat_j.R
index e4515375..5cd20ea3 100644
--- a/R/a_eair_strat_j.R
+++ b/R/a_eair_strat_j.R
@@ -32,6 +32,7 @@
#'
#' @return
#' * `s_eair_strat_levii_j()` returns a list containing the following statistics:
+#'
#' \itemize{
#' \item `n_event_total`: total event count across strata (current arm)
#' \item `person_years_total`: total person-years across strata (current arm)
@@ -45,7 +46,9 @@
#' (only when `vs_ref_group = TRUE`, otherwise `NULL`)
#' \item `eair_strat_diff_est`: estimate for the difference in stratified rate
#' \item `eair_strat_diff_ci`: CI (Wald type) for the difference in stratified rate
-#' }\cr
+#' }
+#'
+#'
#' The list of available statistics (core columns) can also be viewed by
#' running `junco_get_stats("a_eair_strat_j")`.
#' @seealso [a_eair100_j()]
diff --git a/R/risk_diff_col_struct.R b/R/risk_diff_col_struct.R
index 8504cd0f..edd5cc63 100644
--- a/R/risk_diff_col_struct.R
+++ b/R/risk_diff_col_struct.R
@@ -32,7 +32,8 @@ do_sib_val_surgery <- function(splval, comp_lvl, newexargs, spl, comp_label) {
surgical_suite <- function(orig_ret, comp_lvl, newexargs, spl, combo_map) {
out <- orig_ret
comp_label <- get_comp_label(comp_lvl, orig_ret, combo_map)
- out$values <- lapply(out$values,
+ out$values <- lapply(
+ out$values,
do_sib_val_surgery,
comp_lvl = comp_lvl,
newexargs = newexargs,
@@ -200,14 +201,16 @@ add_sib_facets <- function(comp_level, colspan_trt_map, combo_map_all) {
#' functionality please contact the maintainers by filing an issue
#' at https://github.com/johnsonandjohnson/junco/issues
#'
-#' @family riskdiff_col_struct
+#' @family std_col_struct
#'
#' @export
-make_multicomp_splfun <- function(colspan_trt_map,
- combo_levels_map = NULL,
- comp_level_map = NULL,
- .pre = list(),
- .post = list()) {
+make_multicomp_splfun <- function(
+ colspan_trt_map,
+ combo_levels_map = NULL,
+ comp_level_map = NULL,
+ .pre = list(),
+ .post = list()
+) {
colspan_trt_map <- enrich_colspan_map(colspan_trt_map, combo_levels_map)
if (is.null(comp_level_map)) {
comp_levels <- get_all_comp_lvls(colspan_trt_map)
@@ -234,9 +237,7 @@ make_multicomp_splfun <- function(colspan_trt_map,
out <- lapply(
names(ret),
function(nm) {
- unlist(lapply(seq_along(sib_sets), function(ii) sib_sets[[ii]][[nm]]),
- recursive = FALSE
- )
+ unlist(lapply(seq_along(sib_sets), function(ii) sib_sets[[ii]][[nm]]), recursive = FALSE)
}
)
names(out) <- names(ret)
@@ -248,10 +249,12 @@ make_multicomp_splfun <- function(colspan_trt_map,
pre = .pre,
post = c(
funlst,
- apply_comp_map(splvar = names(colspan_trt_map)[2],
- comp_levels,
- comp_map = comp_level_map,
- combo_map = combo_levels_map),
+ apply_comp_map(
+ splvar = names(colspan_trt_map)[2],
+ comp_levels,
+ comp_map = comp_level_map,
+ combo_map = combo_levels_map
+ ),
.post
)
)
@@ -262,8 +265,10 @@ make_multicomp_splfun <- function(colspan_trt_map,
enrich_colspan_map <- function(colspan_map, combodf) {
## assume if any combo levels are present that the
## missing ones are intentional
- if (is.null(combodf) ||
- any(combodf$valname %in% colspan_map[[2]])) {
+ if (
+ is.null(combodf) ||
+ any(combodf$valname %in% colspan_map[[2]])
+ ) {
return(colspan_map)
}
combo_levs <- combodf$valname
@@ -301,7 +306,6 @@ enrich_colspan_map <- function(colspan_map, combodf) {
}
-
make_comp_name <- function(act_nm, comp_nm) paste0(act_nm, " vs ", comp_nm)
## conversion of names/labels to comparison versions is now
@@ -333,13 +337,12 @@ expand_combo_map <- function(combo_map, ref_lvls) {
} else {
## TODO this seems overkill for what is left inside
## the lapply, refactor into saner form
- rws_out <- lapply(comp_against,
- function(cur_ref_lvl) {
- ref_lvl_ind <- match(cur_ref_lvl, ref_lvls)
- cur_rw <- combo_map[ii, ]
- cur_rw$comparator_level <- cur_ref_lvl
- cur_rw
- })
+ rws_out <- lapply(comp_against, function(cur_ref_lvl) {
+ ref_lvl_ind <- match(cur_ref_lvl, ref_lvls)
+ cur_rw <- combo_map[ii, ]
+ cur_rw$comparator_level <- cur_ref_lvl
+ cur_rw
+ })
}
do.call(rbind.data.frame, rws_out)
@@ -423,13 +426,13 @@ combodf_to_comp_map <- function(combodf, ref_lvls, all_base_lvls) {
combodf$valname[!combodf$is_control]
)
if (!("compare_against" %in% names(combodf))) {
- combodf$compare_against <- ifelse(combodf$is_control,
+ combodf$compare_against <- ifelse(
+ combodf$is_control,
replicate(nrcombo, list(non_ref_lvls)),
replicate(nrcombo, list(ref_lvls))
)
}
-
if (any(combodf$is_control) && !all(combodf$valname[combodf$is_control] %in% ref_lvls)) {
stop(
"Combination levels [",
@@ -439,7 +442,6 @@ combodf_to_comp_map <- function(combodf, ref_lvls, all_base_lvls) {
)
}
-
rws <- lapply(
seq_len(nrcombo),
function(i) {
@@ -565,20 +567,45 @@ combodf_to_comp_map <- function(combodf, ref_lvls, all_base_lvls) {
#' column structures added
#'
#'
-#' @family riskdiff_col_struct
+#' @family std_col_struct
#' @export
+#' @examples
+#' colspan_var <- create_colspan_var(
+#' data.frame(TRT01A = factor(c("Placebo", "Active 1", "Active 2"))),
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#' colspan_trt_map <- create_colspan_map(
+#' colspan_var,
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#'
+#' lyt <- basic_table() |>
+#' grouped_cols_w_diffs(colspan_trt_map) |>
+#' analyze("TRT01A", afun = function(x, ...) length(x))
+#'
+#' build_table(lyt, colspan_var)
-grouped_cols_w_diffs <- function(lyt,
- colspan_trt_map,
- combo_map_df = NULL,
- ## default behavior for comp_map is taken care of in make_multicomp_splfun
- comp_map = NULL,
- diff_cols = TRUE,
- diffs_label = "Risk Differences",
- .main_pre = list(),
- .main_post = list(),
- .rr_pre = list(),
- .rr_post = list()) {
+grouped_cols_w_diffs <- function(
+ lyt,
+ colspan_trt_map,
+ combo_map_df = NULL,
+ ## default behavior for comp_map is taken care of in make_multicomp_splfun
+ comp_map = NULL,
+ diff_cols = TRUE,
+ diffs_label = "Risk Differences",
+ .main_pre = list(),
+ .main_post = list(),
+ .rr_pre = list(),
+ .rr_post = list()
+) {
trtvar <- names(colspan_trt_map)[2]
spanvar <- names(colspan_trt_map)[1]
@@ -620,8 +647,6 @@ grouped_cols_w_diffs <- function(lyt,
main_splfun <- make_split_fun(pre = .main_pre, post = main_post)
-
-
lyt <- lyt |>
split_cols_by(names(colspan_trt_map)[1]) |>
split_cols_by(trtvar, split_fun = main_splfun)
@@ -688,3 +713,341 @@ add_combo_levs_to_trtmap <- function(trtmap, combo_map) {
.map_sect_to_post_fun <- function(map) {
cond_rm_facets(map[[2]], value = unique(map[[1]]), keep_matches = TRUE)
}
+
+
+spans_trtvar_no_diffs <- function(
+ lyt,
+ colspan_trt_map,
+ combo_map_df = NULL,
+ trtvar = names(colspan_trt_map)[2],
+ .pre = list(),
+ .post = list()
+) {
+
+ spanvar <- names(colspan_trt_map)[1]
+
+ if (!is.null(combo_map_df)) {
+ if (!("is_control" %in% names(combo_map_df))) {
+ combo_map_df$is_control <- FALSE
+ }
+ main_post <- lapply(
+ seq_len(NROW(combo_map_df)),
+ function(i) {
+ force(i)
+ add_combo_facet(
+ name = combo_map_df$valname[i],
+ label = combo_map_df$label[i],
+ levels = combo_map_df$levelcombo[[i]],
+ extra = combo_map_df$exargs[[i]]
+ )
+ }
+ )
+
+ combo_nms <- combo_map_df$valname
+
+ ## we're guaranteed to have some combo levels at this point
+ combo_found <- combo_nms %in% colspan_trt_map[[trtvar]]
+ if (!any(combo_found)) {
+ message(
+ "none of the combination levels appeared in the colspan treatment map;",
+ " adding them automatically."
+ )
+ colspan_trt_map <- add_combo_levs_to_trtmap(colspan_trt_map, combo_map_df)
+ } else if (any(!combo_found)) {
+ warning("some combination levels defined in combo_map_df do not appear in colspan_trt_map")
+ }
+ } else {
+ main_post <- list()
+ }
+
+ main_post <- c(
+ main_post,
+ if (!is.null(colspan_trt_map)) .trtmap_to_post_funs(colspan_trt_map),
+ .post
+ )
+
+ main_splfun <- make_split_fun(pre = .pre, post = main_post)
+
+ if (!is.null(spanvar)) {
+ lyt <- lyt |>
+ split_cols_by(
+ spanvar,
+ split_fun = keep_split_levels(
+ only = unique(colspan_trt_map[[spanvar]]),
+ reorder = TRUE
+ )
+ )
+ }
+ lyt <- split_cols_by(lyt, trtvar, split_fun = main_splfun, show_colcounts = TRUE)
+ lyt
+}
+
+#' @rdname grouped_cols_w_diffs
+#' @param trtvar (`character(1)` or `NULL`)\cr the treatment variable
+#' to split by. Defaults to the treatment variable in
+#' `colspan_trt_map`.
+#' @param subgrp_var (`character(1)` or `NULL`)\cr the name of the
+#' subgroup variable to split by within the `trtvar` split
+#' @param subgrp_lbl (`character(1)` or `NULL`)\cr the spanning label
+#' to place over the subgroups, if different than `subgrp_var`
+#' @param total_facet (`logical(1)`)\cr should an overall facet be
+#' prepended to the partition defined by `subgrp_var`? Defaults to
+#' `TRUE`.
+#' @param total_lbl (`character(1)`)\cr Label to be used for the
+#' overall facet, if applicable. Defaults to `"Total"`; ignored if
+#' `total_facet` is `FALSE`.
+#' @param .pre (`list` of `function`s)\cr Passed to
+#' [rtables::make_split_fun()] as `pre` for treatment splitting.
+#' @param .post (`list` of `function`s)\cr Passed to
+#' [rtables::make_split_fun()] as `post` for treatment splitting
+#' after the standard column-structure processing.
+#' @details `grouped_cols_w_subgrps` creates a hierarchical column
+#' structure that splits by `trtvar`, underneath which is a
+#' spanning label over a split with a Total column along with
+#' columns for each level of `subgrp_var`.
+#' @export
+#' @examples
+#' dat <- create_colspan_var(
+#' data.frame(
+#' TRT01A = factor(rep(c("Placebo", "Active 1"), each = 2)),
+#' SEX = factor(rep(c("Female", "Male"), 2))
+#' ),
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#' colspan_trt_map <- create_colspan_map(
+#' dat,
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#'
+#' lyt <- basic_table() |>
+#' grouped_cols_w_subgrps(
+#' colspan_trt_map,
+#' subgrp_var = "SEX",
+#' subgrp_lbl = "SUB_*"
+#' ) |>
+#' analyze("TRT01A", afun = function(x, ...) length(x))
+#'
+#' build_table(lyt, dat)
+grouped_cols_w_subgrps <- function(
+ lyt,
+ colspan_trt_map = NULL,
+ combo_map_df = NULL,
+ trtvar = names(colspan_trt_map)[2],
+ subgrp_var = NULL,
+ subgrp_lbl = subgrp_var,
+ total_facet = TRUE,
+ total_lbl = "Total",
+ .pre = list(),
+ .post = list()
+) {
+ if (is.null(trtvar)) {
+ stop("trtvar must be specified if no colspan map is provided.")
+ }
+
+ if (is.null(subgrp_var)) {
+ stop(
+ "no subgroup variable specified, use grouped_cols_w_diffs with diff_cols=FALSE ",
+ "to create a grouped column structure with no subgrouping."
+ )
+ }
+
+ ## handles spanning variable if necessary and the treatment var split
+ lyt <- spans_trtvar_no_diffs(
+ lyt,
+ colspan_trt_map = colspan_trt_map,
+ combo_map_df = combo_map_df,
+ trtvar = trtvar,
+ .pre = .pre,
+ .post = .post
+ )
+
+ lyt <- lyt |>
+ split_cols_by(
+ trtvar,
+ split_fun = make_split_fun(
+ post = list(
+ add_overall_facet(subgrp_lbl, subgrp_lbl),
+ restrict_facets(subgrp_lbl, op = "keep")
+ )
+ )
+ ) |>
+ split_cols_by(
+ subgrp_var,
+ ## NULL is default behavior so this is ok
+ split_fun = if (total_facet) add_overall_level(total_lbl, first = TRUE)
+ )
+ lyt
+}
+
+#' Create Column Structure for a J&J-Style Shift Table
+#'
+#' @param lyt (`PreDataTableLayouts`)\cr The layout, typically as
+#' returned directly from `basic_table`.
+#' @param var (`character(1)`)\cr The variable defining the partition
+#' to create a shift table for.
+#' @param span_lbl (`character(1)`)\cr The spanning label for the
+#' shift portion of the column structure. Defaults to
+#' `"Baseline"`.
+#' @param .outer_spl_var (`character(1)`)\cr The variable to
+#' "split on" when creating the spanning labels. Must exist in the
+#' dataset(s) used in `build_table` but its values are irrelevant.
+#'
+#' @details This function creates a column structure akin to the following
+#' (with Grade 1 through Grade 5 representing the levels of `var`):
+#'
+#' ```
+#' Baseline
+#' N Grade 1 Grade 2 Grade 3 Grade 4 Grade 5 Total
+#' ——————————————————————————————————————————————————————————————
+#' ```
+#'
+#' @examples
+#' shift_data <- data.frame(
+#' BASE = factor(c("Grade 1", "Grade 2", "Grade 3")),
+#' CHG = c("Improved", "Stable", "Worsened")
+#' )
+#'
+#' lyt <- basic_table() |>
+#' shift_tbl_col_struct("BASE") |>
+#' analyze("CHG", afun = function(x, ...) length(x))
+#'
+#' build_table(lyt, shift_data)
+#' @return `lyt` updated with the specified shift table column structure.
+#' @family std_col_struct
+#' @export
+shift_tbl_col_struct <- function(lyt, var, span_lbl = "Baseline", .outer_spl_var = var) {
+ outer_splfun <- make_split_fun(
+ post = list(
+ add_overall_facet("N", label = " "),
+ add_overall_facet("shift_table", label = span_lbl),
+ restrict_facets(c("N", "shift_table"), op = "keep")
+ )
+ )
+
+ inner_splfun <- make_split_fun(
+ post = list(
+ add_overall_facet("Total", label = "Total"),
+ function(ret, spl, fulldf, .spl_context) {
+ if (.spl_context$value[[1]] == "N") {
+ make_split_result("N", labels = c(N = "N"), list(N = fulldf), subset_exprs = list(N = quote(TRUE)))
+ } else {
+ ret
+ }
+ }
+ )
+ )
+
+ lyt <- lyt |>
+ split_cols_by(.outer_spl_var, split_fun = outer_splfun) |>
+ split_cols_by(var, split_fun = inner_splfun)
+ lyt
+}
+
+#' Standard All vs Some (e.g. Related AEs) column structure
+#'
+#' @inheritParams grouped_cols_w_subgrps
+#' @param subgrp_lbl (`character(1)`)\cr The label to put above the combination level representing `subgrp_lvls`
+#' @param all_lbl (`character(1)`)\cr The label to put above the "All" column
+#' @param subgrp_lvls (`characgter`)\cr All level(s) to be included in the `subgrp_lbl` column.
+#'
+#' @details
+#' This column structure generating function is for comparing a single portion of the data (as represented by
+#' level(s) of `subgrp_var`) against the full data, comparison of AE counts to treatment-related AE counts
+#' being a motivating example.
+#'
+#'
+#' @examples
+#'
+#' library(junco)
+#' dat <- create_colspan_var(
+#' data.frame(
+#' TRT01A = factor(rep(c("Placebo", "Active 1", "Active 2"), each = 5)),
+#' GRADE = factor(rep(paste("Grade ", 1:5), 3))
+#' ),
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#' colspan_trt_map <- create_colspan_map(
+#' dat,
+#' non_active_grp = "Placebo",
+#' non_active_grp_span_lbl = "Control",
+#' active_grp_span_lbl = "Active Treatment",
+#' colspan_var = "colspan_trt",
+#' trt_var = "TRT01A"
+#' )
+#'
+#' lyt <- basic_table() |>
+#' some_v_all_col_struct(
+#' colspan_trt_map,
+#' subgrp_var = "GRADE",
+#' subgrp_lvls = c("Grade 4", "Grade 5"),
+#' subgrp_lbl = "High Grade",
+#' all_lbl = "All Grades")
+#'
+#' build_table(lyt, dat)
+#'
+#' @export
+some_v_all_col_struct <- function(
+ lyt,
+ colspan_trt_map = NULL,
+ combo_map_df = NULL,
+ trtvar = names(colspan_trt_map)[2],
+ subgrp_var = NULL,
+ subgrp_lbl = subgrp_var,
+ all_lbl,
+ subgrp_lvls,
+ .pre = list(),
+ .post = list()
+) {
+ if (is.null(trtvar)) {
+ stop("trtvar must be specified if no colspan map is provided.")
+ }
+
+ if (is.null(subgrp_var)) {
+ stop(
+ "no subgroup variable specified, use grouped_cols_w_diffs with diff_cols=FALSE ",
+ "to create a grouped column structure with no subgrouping."
+ )
+ }
+
+ lyt <- spans_trtvar_no_diffs(
+ lyt,
+ colspan_trt_map = colspan_trt_map,
+ combo_map_df = combo_map_df,
+ trtvar = trtvar,
+ .pre = .pre,
+ .post = .post
+ )
+
+ lyt <- lyt |>
+ split_cols_by(
+ subgrp_var,
+ split_fun = make_split_fun(
+ post = list(
+ add_overall_facet(all_lbl, label = all_lbl),
+ add_combo_facet(
+ name = paste0(subgrp_var, "_subset"),
+ label = subgrp_lbl,
+ levels = subgrp_lvls
+ ),
+ restrict_facets(
+ c(all_lbl, paste0(subgrp_var, "_subset")),
+ op = "keep"
+ )
+ )
+ )
+ )
+
+ lyt
+}
diff --git a/_pkgdown.yml b/_pkgdown.yml
index 3af6322e..844dc899 100644
--- a/_pkgdown.yml
+++ b/_pkgdown.yml
@@ -131,11 +131,13 @@ reference:
- create_colspan_map
- create_colspan_var
- grouped_cols_w_diffs
+ - shift_tbl_col_struct
- do_exclude_split
- make_combo_splitfun
- make_multicomp_splfun
- stats_in_cols_setup
- real_add_overall_facet
+ - some_v_all_col_struct
- title: junco Functions For titles/footnotes
desc: The following utility functions help to add titles/footnotes.
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 8a570a53..5e52de70 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -2,6 +2,7 @@ ADSL
AE
AEBODSYS
AEDECOD
+AEs
ANCOVA
AVAL
AVISIT
@@ -33,8 +34,8 @@ Kaplan
Lapply
Lettis
Liu
-MMRM
MF
+MMRM
Miettinen
Nurminen
PARAMCD
@@ -46,6 +47,7 @@ RowsVerticalSection
Sato
Scosyrev
Snavely
+Subgrouping
TEFOS
TLG
TLGs
@@ -55,6 +57,7 @@ TableTree
Toeplitz
TrueType
Unlist
+VR
VTableTree
XLSX
afun
@@ -138,7 +141,6 @@ kaplan
keeprowtext
lastcat
ldots
-lifecycle
lsm
lsmean
lsmeans
@@ -153,6 +155,7 @@ multivar
multivars
n's
na
+natively
parallelisation
parentdf
pathin
@@ -172,10 +175,10 @@ py
qquad
rbmi
referene
+relabelled
removerowtext
responder
responders
-riskdiff
rlistings
rowdf
rowlabel
@@ -200,6 +203,7 @@ str
struct
subcol
subfacet
+subgrouping
summarization
summarizations
tbldf
@@ -215,10 +219,6 @@ unicodify
unlist
unrounded
unstratified
-VR
wald
wordbreaking
xlsx
-relabelled
-natively
-
diff --git a/man/a_eair100_j.Rd b/man/a_eair100_j.Rd
index 86fc3bb5..d4f0b214 100644
--- a/man/a_eair100_j.Rd
+++ b/man/a_eair100_j.Rd
@@ -168,7 +168,7 @@ these will be removed as \code{ear_diff_est_ci} will be displayed in the risk di
\item eair_diff_ci: Confidence interval for difference in EAIR between current group and reference group
(if \code{diff}=TRUE and \code{inriskdiffcol}=TRUE)
\item eair_diff_est_ci: Combination of \code{eair_diff_est} and \code{eair_diff_ci}.
-}\cr
+}
The list of available statistics (core columns) can also be viewed by
running \code{junco_get_stats("a_eair100_j")}.
}
diff --git a/man/a_eair_strat_j.Rd b/man/a_eair_strat_j.Rd
index 4a09a945..3b1377ac 100644
--- a/man/a_eair_strat_j.Rd
+++ b/man/a_eair_strat_j.Rd
@@ -144,6 +144,8 @@ these will be removed as \code{ear_diff_est_ci} will be displayed in the risk di
\value{
\itemize{
\item \code{s_eair_strat_levii_j()} returns a list containing the following statistics:
+}
+
\itemize{
\item \code{n_event_total}: total event count across strata (current arm)
\item \code{person_years_total}: total person-years across strata (current arm)
@@ -157,10 +159,10 @@ these will be removed as \code{ear_diff_est_ci} will be displayed in the risk di
(only when \code{vs_ref_group = TRUE}, otherwise \code{NULL})
\item \code{eair_strat_diff_est}: estimate for the difference in stratified rate
\item \code{eair_strat_diff_ci}: CI (Wald type) for the difference in stratified rate
-}\cr
+}
+
The list of available statistics (core columns) can also be viewed by
running \code{junco_get_stats("a_eair_strat_j")}.
-}
\itemize{
\item \code{a_eair_strat_j()} returns a list of formatted \code{\link[rtables:CellValue]{rtables::CellValue()}} rows.
diff --git a/man/grouped_cols_w_diffs.Rd b/man/grouped_cols_w_diffs.Rd
index c1efa810..1523ce65 100644
--- a/man/grouped_cols_w_diffs.Rd
+++ b/man/grouped_cols_w_diffs.Rd
@@ -2,6 +2,7 @@
% Please edit documentation in R/risk_diff_col_struct.R
\name{grouped_cols_w_diffs}
\alias{grouped_cols_w_diffs}
+\alias{grouped_cols_w_subgrps}
\title{Standard Column Structure With Grouped Treatments and Difference Columns}
\usage{
grouped_cols_w_diffs(
@@ -16,6 +17,19 @@ grouped_cols_w_diffs(
.rr_pre = list(),
.rr_post = list()
)
+
+grouped_cols_w_subgrps(
+ lyt,
+ colspan_trt_map = NULL,
+ combo_map_df = NULL,
+ trtvar = names(colspan_trt_map)[2],
+ subgrp_var = NULL,
+ subgrp_lbl = subgrp_var,
+ total_facet = TRUE,
+ total_lbl = "Total",
+ .pre = list(),
+ .post = list()
+)
}
\arguments{
\item{lyt}{(\code{PreDataTableLayouts}). The layout to modify. This
@@ -57,6 +71,31 @@ faceting.}
\item{.rr_post}{(\code{list} of \code{function}s). Passed to
\code{\link[=make_multicomp_splfun]{make_multicomp_splfun()}} as \code{.post} for risk difference
faceting.}
+
+\item{trtvar}{(\code{character(1)} or \code{NULL})\cr the treatment variable
+to split by. Defaults to the treatment variable in
+\code{colspan_trt_map}.}
+
+\item{subgrp_var}{(\code{character(1)} or \code{NULL})\cr the name of the
+subgroup variable to split by within the \code{trtvar} split}
+
+\item{subgrp_lbl}{(\code{character(1)} or \code{NULL})\cr the spanning label
+to place over the subgroups, if different than \code{subgrp_var}}
+
+\item{total_facet}{(\code{logical(1)})\cr should an overall facet be
+prepended to the partition defined by \code{subgrp_var}? Defaults to
+\code{TRUE}.}
+
+\item{total_lbl}{(\code{character(1)})\cr Label to be used for the
+overall facet, if applicable. Defaults to \code{"Total"}; ignored if
+\code{total_facet} is \code{FALSE}.}
+
+\item{.pre}{(\code{list} of \code{function}s)\cr Passed to
+\code{\link[rtables:make_split_fun]{rtables::make_split_fun()}} as \code{pre} for treatment splitting.}
+
+\item{.post}{(\code{list} of \code{function}s)\cr Passed to
+\code{\link[rtables:make_split_fun]{rtables::make_split_fun()}} as \code{post} for treatment splitting
+after the standard column-structure processing.}
}
\value{
\code{lyt} updated with the specified main and risk difference
@@ -113,9 +152,68 @@ been added if necessary).
For the purposes of pathin in the resulting structure,
\code{diffs_label} will be both the split name and split value of the
parent containing the individual risk difference columns.
+
+\code{grouped_cols_w_subgrps} creates a hierarchical column
+structure that splits by \code{trtvar}, underneath which is a
+spanning label over a split with a Total column along with
+columns for each level of \code{subgrp_var}.
+}
+\examples{
+colspan_var <- create_colspan_var(
+ data.frame(TRT01A = factor(c("Placebo", "Active 1", "Active 2"))),
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+colspan_trt_map <- create_colspan_map(
+ colspan_var,
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+
+lyt <- basic_table() |>
+ grouped_cols_w_diffs(colspan_trt_map) |>
+ analyze("TRT01A", afun = function(x, ...) length(x))
+
+build_table(lyt, colspan_var)
+dat <- create_colspan_var(
+ data.frame(
+ TRT01A = factor(rep(c("Placebo", "Active 1"), each = 2)),
+ SEX = factor(rep(c("Female", "Male"), 2))
+ ),
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+colspan_trt_map <- create_colspan_map(
+ dat,
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+
+lyt <- basic_table() |>
+ grouped_cols_w_subgrps(
+ colspan_trt_map,
+ subgrp_var = "SEX",
+ subgrp_lbl = "SUB_*"
+ ) |>
+ analyze("TRT01A", afun = function(x, ...) length(x))
+
+build_table(lyt, dat)
}
\seealso{
-Other riskdiff_col_struct:
-\code{\link[=make_multicomp_splfun]{make_multicomp_splfun()}}
+Other std_col_struct:
+\code{\link[=make_multicomp_splfun]{make_multicomp_splfun()}},
+\code{\link[=shift_tbl_col_struct]{shift_tbl_col_struct()}}
}
-\concept{riskdiff_col_struct}
+\concept{std_col_struct}
diff --git a/man/make_multicomp_splfun.Rd b/man/make_multicomp_splfun.Rd
index a0daf98d..a47b8253 100644
--- a/man/make_multicomp_splfun.Rd
+++ b/man/make_multicomp_splfun.Rd
@@ -144,7 +144,8 @@ functionality please contact the maintainers by filing an issue
at https://github.com/johnsonandjohnson/junco/issues
}
\seealso{
-Other riskdiff_col_struct:
-\code{\link[=grouped_cols_w_diffs]{grouped_cols_w_diffs()}}
+Other std_col_struct:
+\code{\link[=grouped_cols_w_diffs]{grouped_cols_w_diffs()}},
+\code{\link[=shift_tbl_col_struct]{shift_tbl_col_struct()}}
}
-\concept{riskdiff_col_struct}
+\concept{std_col_struct}
diff --git a/man/shift_tbl_col_struct.Rd b/man/shift_tbl_col_struct.Rd
new file mode 100644
index 00000000..12808265
--- /dev/null
+++ b/man/shift_tbl_col_struct.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/risk_diff_col_struct.R
+\name{shift_tbl_col_struct}
+\alias{shift_tbl_col_struct}
+\title{Create Column Structure for a J&J-Style Shift Table}
+\usage{
+shift_tbl_col_struct(lyt, var, span_lbl = "Baseline", .outer_spl_var = var)
+}
+\arguments{
+\item{lyt}{(\code{PreDataTableLayouts})\cr The layout, typically as
+returned directly from \code{basic_table}.}
+
+\item{var}{(\code{character(1)})\cr The variable defining the partition
+to create a shift table for.}
+
+\item{span_lbl}{(\code{character(1)})\cr The spanning label for the
+shift portion of the column structure. Defaults to
+\code{"Baseline"}.}
+
+\item{.outer_spl_var}{(\code{character(1)})\cr The variable to
+"split on" when creating the spanning labels. Must exist in the
+dataset(s) used in \code{build_table} but its values are irrelevant.}
+}
+\value{
+\code{lyt} updated with the specified shift table column structure.
+}
+\description{
+Create Column Structure for a J&J-Style Shift Table
+}
+\details{
+This function creates a column structure akin to the following
+(with Grade 1 through Grade 5 representing the levels of \code{var}):
+
+\if{html}{\out{
}}\preformatted{ Baseline
+ N Grade 1 Grade 2 Grade 3 Grade 4 Grade 5 Total
+——————————————————————————————————————————————————————————————
+}\if{html}{\out{
}}
+}
+\examples{
+shift_data <- data.frame(
+ BASE = factor(c("Grade 1", "Grade 2", "Grade 3")),
+ CHG = c("Improved", "Stable", "Worsened")
+)
+
+lyt <- basic_table() |>
+ shift_tbl_col_struct("BASE") |>
+ analyze("CHG", afun = function(x, ...) length(x))
+
+build_table(lyt, shift_data)
+}
+\seealso{
+Other std_col_struct:
+\code{\link[=grouped_cols_w_diffs]{grouped_cols_w_diffs()}},
+\code{\link[=make_multicomp_splfun]{make_multicomp_splfun()}}
+}
+\concept{std_col_struct}
diff --git a/man/some_v_all_col_struct.Rd b/man/some_v_all_col_struct.Rd
new file mode 100644
index 00000000..f56ebd13
--- /dev/null
+++ b/man/some_v_all_col_struct.Rd
@@ -0,0 +1,94 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/risk_diff_col_struct.R
+\name{some_v_all_col_struct}
+\alias{some_v_all_col_struct}
+\title{Standard All vs Some (e.g. Related AEs) column structure}
+\usage{
+some_v_all_col_struct(
+ lyt,
+ colspan_trt_map = NULL,
+ combo_map_df = NULL,
+ trtvar = names(colspan_trt_map)[2],
+ subgrp_var = NULL,
+ subgrp_lbl = subgrp_var,
+ all_lbl,
+ subgrp_lvls,
+ .pre = list(),
+ .post = list()
+)
+}
+\arguments{
+\item{lyt}{(\code{PreDataTableLayouts}). The layout to modify. This
+should virtually always be the object returned by
+\code{basic_table}.}
+
+\item{colspan_trt_map}{(\code{data.frame}). The spanning label map for
+the main columns, as given by \code{create_colspan_map}.}
+
+\item{combo_map_df}{(\code{data.frame} or \code{NULL}). A combination data
+frame as defined by \code{\link[rtables:add_combo_levels]{add_combo_levels()}} with an additional
+\code{is_control} column indicating whether the virtual level will
+act as a reference (\code{TRUE}) or active (\code{FALSE}) group.}
+
+\item{trtvar}{(\code{character(1)} or \code{NULL})\cr the treatment variable
+to split by. Defaults to the treatment variable in
+\code{colspan_trt_map}.}
+
+\item{subgrp_var}{(\code{character(1)} or \code{NULL})\cr the name of the
+subgroup variable to split by within the \code{trtvar} split}
+
+\item{subgrp_lbl}{(\code{character(1)})\cr The label to put above the combination level representing \code{subgrp_lvls}}
+
+\item{all_lbl}{(\code{character(1)})\cr The label to put above the "All" column}
+
+\item{subgrp_lvls}{(\code{characgter})\cr All level(s) to be included in the \code{subgrp_lbl} column.}
+
+\item{.pre}{(\code{list} of \code{function}s)\cr Passed to
+\code{\link[rtables:make_split_fun]{rtables::make_split_fun()}} as \code{pre} for treatment splitting.}
+
+\item{.post}{(\code{list} of \code{function}s)\cr Passed to
+\code{\link[rtables:make_split_fun]{rtables::make_split_fun()}} as \code{post} for treatment splitting
+after the standard column-structure processing.}
+}
+\description{
+Standard All vs Some (e.g. Related AEs) column structure
+}
+\details{
+This column structure generating function is for comparing a single portion of the data (as represented by
+level(s) of \code{subgrp_var}) against the full data, comparison of AE counts to treatment-related AE counts
+being a motivating example.
+}
+\examples{
+
+ library(junco)
+dat <- create_colspan_var(
+ data.frame(
+ TRT01A = factor(rep(c("Placebo", "Active 1", "Active 2"), each = 5)),
+ GRADE = factor(rep(paste("Grade ", 1:5), 3))
+ ),
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+colspan_trt_map <- create_colspan_map(
+ dat,
+ non_active_grp = "Placebo",
+ non_active_grp_span_lbl = "Control",
+ active_grp_span_lbl = "Active Treatment",
+ colspan_var = "colspan_trt",
+ trt_var = "TRT01A"
+)
+
+lyt <- basic_table() |>
+ some_v_all_col_struct(
+ colspan_trt_map,
+ subgrp_var = "GRADE",
+ subgrp_lvls = c("Grade 4", "Grade 5"),
+ subgrp_lbl = "High Grade",
+ all_lbl = "All Grades")
+
+build_table(lyt, dat)
+
+}
diff --git a/prolems.R~ b/prolems.R~
new file mode 100644
index 00000000..3d018ed3
--- /dev/null
+++ b/prolems.R~
@@ -0,0 +1,29 @@
+library(junco)
+library(pharmaverseadamjnj)
+
+lyt <- basic_table() |>
+ split_cols_by("TRT01P") |>
+ split_rows_by("AEBODSYS", split_fun = trim_levels_in_group("AEDECOD")) |>
+ split_rows_by("AEDECOD") |>
+ split_rows_by("RACE") |>
+ analyze("AETOXGR")
+
+system.time({tbl <- build_table(lyt, adae, alt_counts_df = adsl)})
+
+
+do_one <- function(naebodsys, dat = adae) {
+ newdat <- dat[dat$AEBODSYS %in% levels(dat$AEBODSYS)[seq(1, naebodsys)],]
+ newdat$AEBODSYS <- factor(newdat$AEBODSYS)
+ lyt <- basic_table() |>
+ split_cols_by("TRT01P") |>
+ split_rows_by("AEBODSYS", split_fun = trim_levels_in_group("AEDECOD")) |>
+ split_rows_by("AEDECOD") |>
+ split_rows_by("RACE") |>
+ analyze("AETOXGR")
+ gc()
+ bldtime <- system.time({tbl <- build_table(lyt, newdat, alt_counts_df = adsl)})[[3]]
+
+ data.frame(nrows = nrow(tbl), ncols = ncol(tbl), build_time = bldtime)
+}
+
+
diff --git a/tests/testthat/_snaps/docx_exporter_functions.md b/tests/testthat/_snaps/docx_exporter_functions.md
deleted file mode 100644
index 9fffa92e..00000000
--- a/tests/testthat/_snaps/docx_exporter_functions.md
+++ /dev/null
@@ -1,28097 +0,0 @@
-# tt_to_flextable_j() works fine with Tables
-
- Code
- res$header
- Output
- $dataset
- V1 V2
- 1 output ID:\tThis is the main Title output ID:\tThis is the main Title
- 2 V1 V2
- V3 V4
- 1 output ID:\tThis is the main Title output ID:\tThis is the main Title
- 2 V3 V4
-
- $content
- $data
- V1 V2 V3 V4
- [1,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [2,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [[1]]
- txt font.size italic bold underlined strike color shading.color font.family
- 1 NA NA NA NA NA
- hansi.family eastasia.family cs.family vertical.align width height url
- 1 NA NA
- eq_data word_field_data qmd_data img_data .chunk_index
- 1 NULL 1
-
- attr(,"class")
- [1] "paragraph"
-
- attr(,"class")
- [1] "chunkset_struct"
-
- $col_keys
- [1] "V1" "V2" "V3" "V4"
-
- $colwidths
- V1 V2 V3 V4
- 1.974762 1.468413 1.468413 1.468413
-
- $rowheights
- [1] 0.4430556 0.4430556
-
- $hrule
- [1] "auto" "auto"
-
- $spans
- $spans$rows
- [,1] [,2] [,3] [,4]
- [1,] 4 0 0 0
- [2,] 1 1 1 1
-
- $spans$columns
- [,1] [,2] [,3] [,4]
- [1,] 1 1 1 1
- [2,] 1 1 1 1
-
-
- $styles
- $styles$cells
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "bottom" "bottom" "bottom" "bottom"
- [2,] "bottom" "bottom" "bottom" "bottom"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "center"
-
- attr(,"class")
- [1] "fpstruct"
-
- $width
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
- [2,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $height
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
- [2,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0.875 0.875 0.875 0.875
- [2,] 0.875 0.875 0.875 0.875
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0.875 0.875 0.875 0.875
- [2,] 0.875 0.875 0.875 0.875
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $text.direction
- $data
- V1 V2 V3 V4
- [1,] "lrtb" "lrtb" "lrtb" "lrtb"
- [2,] "lrtb" "lrtb" "lrtb" "lrtb"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "lrtb"
-
- attr(,"class")
- [1] "fpstruct"
-
- $background.color
- $data
- V1 V2 V3 V4
- [1,] "white" "white" "white" "white"
- [2,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hrule
- $data
- V1 V2 V3 V4
- [1,] "auto" "auto" "auto" "auto"
- [2,] "auto" "auto" "auto" "auto"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "auto"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "cell_struct"
-
- $styles$pars
- $text.align
- $data
- V1 V2 V3 V4
- [1,] "left" "left" "left" "left"
- [2,] "left" "center" "center" "center"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "left"
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.left
- $data
- V1 V2 V3 V4
- [1,] 0.0 0 0 0
- [2,] 4.5 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $line_spacing
- $data
- V1 V2 V3 V4
- [1,] 1 1 1 1
- [2,] 1 1 1 1
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 1
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
- [2,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $keep_with_next
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $word_style
- $data
- V1 V2 V3 V4
- [1,] "caption" "caption" "caption" "caption"
- [2,] "Normal" "Normal" "Normal" "Normal"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "Normal"
-
- attr(,"class")
- [1] "fpstruct"
-
- $tabs
- $data
- V1 V2 V3 V4
- [1,] "left_0.8" NA NA NA
- [2,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "par_struct"
-
- $styles$text
- $color
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.size
- $data
- V1 V2 V3 V4
- [1,] 10 10 10 10
- [2,] 9 9 9 9
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] 11
-
- attr(,"class")
- [1] "fpstruct"
-
- $bold
- $data
- V1 V2 V3 V4
- [1,] TRUE TRUE TRUE TRUE
- [2,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $italic
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $underlined
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $strike
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hansi.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $eastasia.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $cs.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "baseline" "baseline" "baseline" "baseline"
- [2,] "baseline" "baseline" "baseline" "baseline"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "baseline"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
- [2,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 2
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "text_struct"
-
-
- attr(,"class")
- [1] "complex_tabpart"
-
----
-
- Code
- res$body
- Output
- $dataset
- V1 V2 V3 V4
- 1 CHN 74/134 (55.2%) 81/134 (60.4%) 64/132 (48.5%)
- 2 USA 10/134 (7.5%) 13/134 (9.7%) 17/132 (12.9%)
- 3 BRA 13/134 (9.7%) 7/134 (5.2%) 10/132 (7.6%)
- 4 PAK 12/134 (9.0%) 9/134 (6.7%) 10/132 (7.6%)
- 5 NGA 8/134 (6.0%) 7/134 (5.2%) 11/132 (8.3%)
- 6 RUS 5/134 (3.7%) 8/134 (6.0%) 6/132 (4.5%)
- 7 JPN ≥ 5/134 (3.7%) 4/134 (3.0%) 9/132 (6.8%)
- 8 GBR 4/134 (3.0%) 3/134 (2.2%) 2/132 (1.5%)
- 9 CAN~[super a] 3/134 (2.2%) 2/134 (1.5%) 3/132 (2.3%)
- 10 CHE 0/134 (0.0%) 0/134 (0.0%) 0/132 (0.0%)
-
- $content
- $data
- V1 V2 V3 V4
- [1,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [2,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [3,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [4,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [5,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [6,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [7,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [8,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [9,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
- [10,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [[1]]
- txt font.size italic bold underlined strike color shading.color font.family
- 1 NA NA NA NA NA
- hansi.family eastasia.family cs.family vertical.align width height url
- 1 NA NA
- eq_data word_field_data qmd_data img_data .chunk_index
- 1 NULL 1
-
- attr(,"class")
- [1] "paragraph"
-
- attr(,"class")
- [1] "chunkset_struct"
-
- $col_keys
- [1] "V1" "V2" "V3" "V4"
-
- $colwidths
- V1 V2 V3 V4
- 1.974762 1.468413 1.468413 1.468413
-
- $rowheights
- [1] 0.4222222 0.4222222 0.4222222 0.4222222 0.4222222 0.4222222 0.4222222
- [8] 0.4222222 0.4222222 0.4326389
-
- $hrule
- [1] "auto" "auto" "auto" "auto" "auto" "auto" "auto" "auto" "auto" "auto"
-
- $spans
- $spans$rows
- [,1] [,2] [,3] [,4]
- [1,] 1 1 1 1
- [2,] 1 1 1 1
- [3,] 1 1 1 1
- [4,] 1 1 1 1
- [5,] 1 1 1 1
- [6,] 1 1 1 1
- [7,] 1 1 1 1
- [8,] 1 1 1 1
- [9,] 1 1 1 1
- [10,] 1 1 1 1
-
- $spans$columns
- [,1] [,2] [,3] [,4]
- [1,] 1 1 1 1
- [2,] 1 1 1 1
- [3,] 1 1 1 1
- [4,] 1 1 1 1
- [5,] 1 1 1 1
- [6,] 1 1 1 1
- [7,] 1 1 1 1
- [8,] 1 1 1 1
- [9,] 1 1 1 1
- [10,] 1 1 1 1
-
-
- $styles
- $styles$cells
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "bottom" "bottom" "bottom" "bottom"
- [2,] "bottom" "bottom" "bottom" "bottom"
- [3,] "bottom" "bottom" "bottom" "bottom"
- [4,] "bottom" "bottom" "bottom" "bottom"
- [5,] "bottom" "bottom" "bottom" "bottom"
- [6,] "bottom" "bottom" "bottom" "bottom"
- [7,] "bottom" "bottom" "bottom" "bottom"
- [8,] "bottom" "bottom" "bottom" "bottom"
- [9,] "bottom" "bottom" "bottom" "bottom"
- [10,] "bottom" "bottom" "bottom" "bottom"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "center"
-
- attr(,"class")
- [1] "fpstruct"
-
- $width
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
- [2,] NA NA NA NA
- [3,] NA NA NA NA
- [4,] NA NA NA NA
- [5,] NA NA NA NA
- [6,] NA NA NA NA
- [7,] NA NA NA NA
- [8,] NA NA NA NA
- [9,] NA NA NA NA
- [10,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $height
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
- [2,] NA NA NA NA
- [3,] NA NA NA NA
- [4,] NA NA NA NA
- [5,] NA NA NA NA
- [6,] NA NA NA NA
- [7,] NA NA NA NA
- [8,] NA NA NA NA
- [9,] NA NA NA NA
- [10,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0.000 0.000 0.000 0.000
- [2,] 0.000 0.000 0.000 0.000
- [3,] 0.000 0.000 0.000 0.000
- [4,] 0.000 0.000 0.000 0.000
- [5,] 0.000 0.000 0.000 0.000
- [6,] 0.000 0.000 0.000 0.000
- [7,] 0.000 0.000 0.000 0.000
- [8,] 0.000 0.000 0.000 0.000
- [9,] 0.000 0.000 0.000 0.000
- [10,] 0.875 0.875 0.875 0.875
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $text.direction
- $data
- V1 V2 V3 V4
- [1,] "lrtb" "lrtb" "lrtb" "lrtb"
- [2,] "lrtb" "lrtb" "lrtb" "lrtb"
- [3,] "lrtb" "lrtb" "lrtb" "lrtb"
- [4,] "lrtb" "lrtb" "lrtb" "lrtb"
- [5,] "lrtb" "lrtb" "lrtb" "lrtb"
- [6,] "lrtb" "lrtb" "lrtb" "lrtb"
- [7,] "lrtb" "lrtb" "lrtb" "lrtb"
- [8,] "lrtb" "lrtb" "lrtb" "lrtb"
- [9,] "lrtb" "lrtb" "lrtb" "lrtb"
- [10,] "lrtb" "lrtb" "lrtb" "lrtb"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "lrtb"
-
- attr(,"class")
- [1] "fpstruct"
-
- $background.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
- [2,] "transparent" "transparent" "transparent" "transparent"
- [3,] "transparent" "transparent" "transparent" "transparent"
- [4,] "transparent" "transparent" "transparent" "transparent"
- [5,] "transparent" "transparent" "transparent" "transparent"
- [6,] "transparent" "transparent" "transparent" "transparent"
- [7,] "transparent" "transparent" "transparent" "transparent"
- [8,] "transparent" "transparent" "transparent" "transparent"
- [9,] "transparent" "transparent" "transparent" "transparent"
- [10,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hrule
- $data
- V1 V2 V3 V4
- [1,] "auto" "auto" "auto" "auto"
- [2,] "auto" "auto" "auto" "auto"
- [3,] "auto" "auto" "auto" "auto"
- [4,] "auto" "auto" "auto" "auto"
- [5,] "auto" "auto" "auto" "auto"
- [6,] "auto" "auto" "auto" "auto"
- [7,] "auto" "auto" "auto" "auto"
- [8,] "auto" "auto" "auto" "auto"
- [9,] "auto" "auto" "auto" "auto"
- [10,] "auto" "auto" "auto" "auto"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "auto"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "cell_struct"
-
- $styles$pars
- $text.align
- $data
- V1 V2 V3 V4
- [1,] "left" "center" "center" "center"
- [2,] "left" "center" "center" "center"
- [3,] "left" "center" "center" "center"
- [4,] "left" "center" "center" "center"
- [5,] "left" "center" "center" "center"
- [6,] "left" "center" "center" "center"
- [7,] "left" "center" "center" "center"
- [8,] "left" "center" "center" "center"
- [9,] "left" "center" "center" "center"
- [10,] "left" "center" "center" "center"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "left"
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $line_spacing
- $data
- V1 V2 V3 V4
- [1,] 1 1 1 1
- [2,] 1 1 1 1
- [3,] 1 1 1 1
- [4,] 1 1 1 1
- [5,] 1 1 1 1
- [6,] 1 1 1 1
- [7,] 1 1 1 1
- [8,] 1 1 1 1
- [9,] 1 1 1 1
- [10,] 1 1 1 1
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 1
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
- [2,] 0 0 0 0
- [3,] 0 0 0 0
- [4,] 0 0 0 0
- [5,] 0 0 0 0
- [6,] 0 0 0 0
- [7,] 0 0 0 0
- [8,] 0 0 0 0
- [9,] 0 0 0 0
- [10,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
- [2,] "solid" "solid" "solid" "solid"
- [3,] "solid" "solid" "solid" "solid"
- [4,] "solid" "solid" "solid" "solid"
- [5,] "solid" "solid" "solid" "solid"
- [6,] "solid" "solid" "solid" "solid"
- [7,] "solid" "solid" "solid" "solid"
- [8,] "solid" "solid" "solid" "solid"
- [9,] "solid" "solid" "solid" "solid"
- [10,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
- [2,] "transparent" "transparent" "transparent" "transparent"
- [3,] "transparent" "transparent" "transparent" "transparent"
- [4,] "transparent" "transparent" "transparent" "transparent"
- [5,] "transparent" "transparent" "transparent" "transparent"
- [6,] "transparent" "transparent" "transparent" "transparent"
- [7,] "transparent" "transparent" "transparent" "transparent"
- [8,] "transparent" "transparent" "transparent" "transparent"
- [9,] "transparent" "transparent" "transparent" "transparent"
- [10,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $keep_with_next
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
- [3,] FALSE FALSE FALSE FALSE
- [4,] FALSE FALSE FALSE FALSE
- [5,] FALSE FALSE FALSE FALSE
- [6,] FALSE FALSE FALSE FALSE
- [7,] FALSE FALSE FALSE FALSE
- [8,] FALSE FALSE FALSE FALSE
- [9,] FALSE FALSE FALSE FALSE
- [10,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $word_style
- $data
- V1 V2 V3 V4
- [1,] "Normal" "Normal" "Normal" "Normal"
- [2,] "Normal" "Normal" "Normal" "Normal"
- [3,] "Normal" "Normal" "Normal" "Normal"
- [4,] "Normal" "Normal" "Normal" "Normal"
- [5,] "Normal" "Normal" "Normal" "Normal"
- [6,] "Normal" "Normal" "Normal" "Normal"
- [7,] "Normal" "Normal" "Normal" "Normal"
- [8,] "Normal" "Normal" "Normal" "Normal"
- [9,] "Normal" "Normal" "Normal" "Normal"
- [10,] "Normal" "Normal" "Normal" "Normal"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "Normal"
-
- attr(,"class")
- [1] "fpstruct"
-
- $tabs
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
- [2,] NA NA NA NA
- [3,] NA NA NA NA
- [4,] NA NA NA NA
- [5,] NA NA NA NA
- [6,] NA NA NA NA
- [7,] NA NA NA NA
- [8,] NA NA NA NA
- [9,] NA NA NA NA
- [10,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "par_struct"
-
- $styles$text
- $color
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
- [2,] "black" "black" "black" "black"
- [3,] "black" "black" "black" "black"
- [4,] "black" "black" "black" "black"
- [5,] "black" "black" "black" "black"
- [6,] "black" "black" "black" "black"
- [7,] "black" "black" "black" "black"
- [8,] "black" "black" "black" "black"
- [9,] "black" "black" "black" "black"
- [10,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.size
- $data
- V1 V2 V3 V4
- [1,] 9 9 9 9
- [2,] 9 9 9 9
- [3,] 9 9 9 9
- [4,] 9 9 9 9
- [5,] 9 9 9 9
- [6,] 9 9 9 9
- [7,] 9 9 9 9
- [8,] 9 9 9 9
- [9,] 9 9 9 9
- [10,] 9 9 9 9
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] 11
-
- attr(,"class")
- [1] "fpstruct"
-
- $bold
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
- [3,] FALSE FALSE FALSE FALSE
- [4,] FALSE FALSE FALSE FALSE
- [5,] FALSE FALSE FALSE FALSE
- [6,] FALSE FALSE FALSE FALSE
- [7,] FALSE FALSE FALSE FALSE
- [8,] FALSE FALSE FALSE FALSE
- [9,] FALSE FALSE FALSE FALSE
- [10,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $italic
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
- [3,] FALSE FALSE FALSE FALSE
- [4,] FALSE FALSE FALSE FALSE
- [5,] FALSE FALSE FALSE FALSE
- [6,] FALSE FALSE FALSE FALSE
- [7,] FALSE FALSE FALSE FALSE
- [8,] FALSE FALSE FALSE FALSE
- [9,] FALSE FALSE FALSE FALSE
- [10,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $underlined
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
- [3,] FALSE FALSE FALSE FALSE
- [4,] FALSE FALSE FALSE FALSE
- [5,] FALSE FALSE FALSE FALSE
- [6,] FALSE FALSE FALSE FALSE
- [7,] FALSE FALSE FALSE FALSE
- [8,] FALSE FALSE FALSE FALSE
- [9,] FALSE FALSE FALSE FALSE
- [10,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $strike
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
- [2,] FALSE FALSE FALSE FALSE
- [3,] FALSE FALSE FALSE FALSE
- [4,] FALSE FALSE FALSE FALSE
- [5,] FALSE FALSE FALSE FALSE
- [6,] FALSE FALSE FALSE FALSE
- [7,] FALSE FALSE FALSE FALSE
- [8,] FALSE FALSE FALSE FALSE
- [9,] FALSE FALSE FALSE FALSE
- [10,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [3,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [4,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [5,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [6,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [7,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [8,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [9,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [10,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hansi.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [3,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [4,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [5,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [6,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [7,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [8,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [9,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [10,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $eastasia.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [3,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [4,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [5,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [6,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [7,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [8,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [9,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [10,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $cs.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [2,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [3,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [4,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [5,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [6,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [7,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [8,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [9,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
- [10,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "baseline" "baseline" "baseline" "baseline"
- [2,] "baseline" "baseline" "baseline" "baseline"
- [3,] "baseline" "baseline" "baseline" "baseline"
- [4,] "baseline" "baseline" "baseline" "baseline"
- [5,] "baseline" "baseline" "baseline" "baseline"
- [6,] "baseline" "baseline" "baseline" "baseline"
- [7,] "baseline" "baseline" "baseline" "baseline"
- [8,] "baseline" "baseline" "baseline" "baseline"
- [9,] "baseline" "baseline" "baseline" "baseline"
- [10,] "baseline" "baseline" "baseline" "baseline"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "baseline"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
- [2,] "transparent" "transparent" "transparent" "transparent"
- [3,] "transparent" "transparent" "transparent" "transparent"
- [4,] "transparent" "transparent" "transparent" "transparent"
- [5,] "transparent" "transparent" "transparent" "transparent"
- [6,] "transparent" "transparent" "transparent" "transparent"
- [7,] "transparent" "transparent" "transparent" "transparent"
- [8,] "transparent" "transparent" "transparent" "transparent"
- [9,] "transparent" "transparent" "transparent" "transparent"
- [10,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 10
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "text_struct"
-
-
- attr(,"class")
- [1] "complex_tabpart"
-
----
-
- Code
- res$footer
- Output
- $dataset
- V1
- 1 \n~{super a}Canada\nThis ~{optional text should} stay the same
- V2
- 1 \n~{super a}Canada\nThis ~{optional text should} stay the same
- V3
- 1 \n~{super a}Canada\nThis ~{optional text should} stay the same
- V4
- 1 \n~{super a}Canada\nThis ~{optional text should} stay the same
-
- $content
- $data
- V1 V2 V3 V4
- [1,] data.frame,21 data.frame,21 data.frame,21 data.frame,21
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [[1]]
- txt font.size italic bold underlined strike color shading.color font.family
- 1 NA NA NA NA NA
- hansi.family eastasia.family cs.family vertical.align width height url
- 1 NA NA
- eq_data word_field_data qmd_data img_data .chunk_index
- 1 NULL 1
-
- attr(,"class")
- [1] "paragraph"
-
- attr(,"class")
- [1] "chunkset_struct"
-
- $col_keys
- [1] "V1" "V2" "V3" "V4"
-
- $colwidths
- V1 V2 V3 V4
- 1.974762 1.468413 1.468413 1.468413
-
- $rowheights
- [1] 0.25
-
- $hrule
- [1] "auto"
-
- $spans
- $spans$rows
- [,1] [,2] [,3] [,4]
- [1,] 4 0 0 0
-
- $spans$columns
- [,1] [,2] [,3] [,4]
- [1,] 1 1 1 1
-
-
- $styles
- $styles$cells
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "bottom" "center" "center" "center"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "center"
-
- attr(,"class")
- [1] "fpstruct"
-
- $width
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $height
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $margin.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0.875 0.875 0.875 0.875
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $text.direction
- $data
- V1 V2 V3 V4
- [1,] "lrtb" "lrtb" "lrtb" "lrtb"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "lrtb"
-
- attr(,"class")
- [1] "fpstruct"
-
- $background.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hrule
- $data
- V1 V2 V3 V4
- [1,] "auto" "auto" "auto" "auto"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "auto"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "cell_struct"
-
- $styles$pars
- $text.align
- $data
- V1 V2 V3 V4
- [1,] "left" "left" "left" "left"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "left"
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $padding.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 5
-
- attr(,"class")
- [1] "fpstruct"
-
- $line_spacing
- $data
- V1 V2 V3 V4
- [1,] 1 1 1 1
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 1
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.bottom
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.top
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.left
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.width.right
- $data
- V1 V2 V3 V4
- [1,] 0 0 0 0
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 0
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.bottom
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.top
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.left
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.color.right
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.bottom
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.top
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.left
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $border.style.right
- $data
- V1 V2 V3 V4
- [1,] "solid" "solid" "solid" "solid"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "solid"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- $keep_with_next
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $word_style
- $data
- V1 V2 V3 V4
- [1,] "Normal" "Normal" "Normal" "Normal"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "Normal"
-
- attr(,"class")
- [1] "fpstruct"
-
- $tabs
- $data
- V1 V2 V3 V4
- [1,] NA NA NA NA
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] NA
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "par_struct"
-
- $styles$text
- $color
- $data
- V1 V2 V3 V4
- [1,] "black" "black" "black" "black"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "black"
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.size
- $data
- V1 V2 V3 V4
- [1,] 9 9 9 9
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] 11
-
- attr(,"class")
- [1] "fpstruct"
-
- $bold
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $italic
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $underlined
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $strike
- $data
- V1 V2 V3 V4
- [1,] FALSE FALSE FALSE FALSE
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] FALSE
-
- attr(,"class")
- [1] "fpstruct"
-
- $font.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $hansi.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $eastasia.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $cs.family
- $data
- V1 V2 V3 V4
- [1,] "Times New Roman" "Times New Roman" "Times New Roman" "Times New Roman"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "Arial"
-
- attr(,"class")
- [1] "fpstruct"
-
- $vertical.align
- $data
- V1 V2 V3 V4
- [1,] "baseline" "baseline" "baseline" "baseline"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "baseline"
-
- attr(,"class")
- [1] "fpstruct"
-
- $shading.color
- $data
- V1 V2 V3 V4
- [1,] "transparent" "transparent" "transparent" "transparent"
-
- $keys
- [1] "V1" "V2" "V3" "V4"
-
- $nrow
- [1] 1
-
- $ncol
- [1] 4
-
- $default
- [1] "transparent"
-
- attr(,"class")
- [1] "fpstruct"
-
- attr(,"class")
- [1] "text_struct"
-
-
- attr(,"class")
- [1] "complex_tabpart"
-
----
-
- Code
- res$col_keys
- Output
- [1] "V1" "V2" "V3" "V4"
-
----
-
- Code
- res$caption
- Output
- $value
- NULL
-
-
----
-
- Code
- res$blanks
- Output
- character(0)
-
----
-
- Code
- res$properties
- Output
- $layout
- [1] "fixed"
-
- $width
- [1] 0
-
- $align
- [1] "left"
-
- $opts_html
- $extra_css
- [1] ""
-
- $scroll
- NULL
-
- $extra_class
- NULL
-
- attr(,"class")
- [1] "opts_ft_html"
-
- $opts_word
- $split
- [1] TRUE
-
- $keep_with_next
- [1] TRUE
-
- $repeat_headers
- [1] TRUE
-
- attr(,"class")
- [1] "opts_ft_word"
-
- $opts_pdf
- $tabcolsep
- [1] 2
-
- $arraystretch
- [1] 1.5
-
- $float
- [1] "none"
-
- $default_line_color
- [1] "black"
-
- $caption_repeat
- [1] TRUE
-
- $footer_repeat
- [1] FALSE
-
- $fonts_ignore
- [1] FALSE
-
- attr(,"class")
- [1] "opts_ft_pdf"
-
- $word_title
- NULL
-
- $word_description
- NULL
-
-
----
-
- Code
- officer::docx_summary(x = doc, detailed = detailed)
- Output
- doc_index content_type run_index run_content_index run_content_text
- 1 1 table cell 1 1 output ID:
- 2 1 table cell 2 1 \t
- 3 1 table cell 3 1 This is the main Title
- 4 2 table cell 1 1
- 5 3 table cell 1 1 A: Drug X (N=134)
- 6 4 table cell 1 1 B: Placebo (N=134)
- 7 5 table cell 1 1 C: Combination (N=132)
- 8 6 table cell 1 1 CHN
- 9 7 table cell 1 1 74/134 (55.2%)
- 10 8 table cell 1 1 81/134 (60.4%)
- 11 9 table cell 1 1 64/132 (48.5%)
- 12 10 table cell 1 1 USA
- 13 11 table cell 1 1 10/134 (7.5%)
- 14 12 table cell 1 1 13/134 (9.7%)
- 15 13 table cell 1 1 17/132 (12.9%)
- 16 14 table cell 1 1 BRA
- 17 15 table cell 1 1 13/134 (9.7%)
- 18 16 table cell 1 1 7/134 (5.2%)
- 19 17 table cell 1 1 10/132 (7.6%)
- 20 18 table cell 1 1 PAK
- 21 19 table cell 1 1 12/134 (9.0%)
- 22 20 table cell 1 1 9/134 (6.7%)
- 23 21 table cell 1 1 10/132 (7.6%)
- 24 22 table cell 1 1 NGA
- 25 23 table cell 1 1 8/134 (6.0%)
- 26 24 table cell 1 1 7/134 (5.2%)
- 27 25 table cell 1 1 11/132 (8.3%)
- 28 26 table cell 1 1 RUS
- 29 27 table cell 1 1 5/134 (3.7%)
- 30 28 table cell 1 1 8/134 (6.0%)
- 31 29 table cell 1 1 6/132 (4.5%)
- 32 30 table cell 1 1 JPN ≥
- 33 31 table cell 1 1 5/134 (3.7%)
- 34 32 table cell 1 1 4/134 (3.0%)
- 35 33 table cell 1 1 9/132 (6.8%)
- 36 34 table cell 1 1 GBR
- 37 35 table cell 1 1 4/134 (3.0%)
- 38 36 table cell 1 1 3/134 (2.2%)
- 39 37 table cell 1 1 2/132 (1.5%)
- 40 38 table cell 1 1 CAN
- 41 38 table cell 2 1 a
- 42 39 table cell 1 1 3/134 (2.2%)
- 43 40 table cell 1 1 2/134 (1.5%)
- 44 41 table cell 1 1 3/132 (2.3%)
- 45 42 table cell 1 1 CHE
- 46 43 table cell 1 1 0/134 (0.0%)
- 47 44 table cell 1 1 0/134 (0.0%)
- 48 45 table cell 1 1 0/132 (0.0%)
- 49 46 table cell 1 1 \n
- 50 46 table cell 2 1 a
- 51 46 table cell 3 1 Canada
- 52 46 table cell 4 1 \n
- 53 46 table cell 5 1 This
- 54 46 table cell 6 1 text should
- 55 46 table cell 7 1 stay the same
- image_path field_code footnote_text link link_to_bookmark bookmark_start
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45