Nothing
## ----echo=FALSE---------------------------------------------------------------
knitr::opts_chunk$set(comment = "#")
## -----------------------------------------------------------------------------
library(dplyr)
library(rtables)
lyt <- basic_table(show_colcounts = TRUE) %>%
split_cols_by("ARM") %>%
split_cols_by("SEX", split_fun = keep_split_levels(c("F", "M"))) %>%
analyze("AGE")
tbl <- build_table(lyt, ex_adsl)
tbl
## -----------------------------------------------------------------------------
col_counts(tbl) <- c(17, 18, 19, 17, 18, 19)
tbl
## -----------------------------------------------------------------------------
col_counts(tbl) <- c(17, 18, NA, 17, 18, 19)
tbl
## -----------------------------------------------------------------------------
lyt2 <- basic_table() %>%
split_cols_by("ARM") %>%
split_cols_by("SEX",
split_fun = keep_split_levels(c("F", "M")),
show_colcounts = TRUE
) %>%
analyze("AGE")
tbl2 <- build_table(lyt2, ex_adsl)
tbl2
## -----------------------------------------------------------------------------
lyt3 <- basic_table() %>%
split_cols_by("ARM", show_colcounts = TRUE) %>%
split_cols_by("SEX", split_fun = keep_split_levels(c("F", "M"))) %>%
analyze("AGE")
tbl3 <- build_table(lyt3, ex_adsl)
tbl3
## -----------------------------------------------------------------------------
facet_colcount(tbl3, c("ARM", "C: Combination"))
## -----------------------------------------------------------------------------
facet_colcount(tbl3, c("ARM", "C: Combination")) <- 75
tbl3
## -----------------------------------------------------------------------------
facet_colcounts_visible(tbl3, c("ARM", "A: Drug X", "SEX")) <- TRUE
tbl3
## ----eval = FALSE-------------------------------------------------------------
# ## BEWARE, the following is expected to show error
# tbl4 <- tbl3
# colcount_visible(tbl4, c("ARM", "A: Drug X", "SEX", "F")) <- FALSE
# tbl4
#
# # Expected Error message
# # Error in h(simpleError(msg, call)) :
# # error in evaluating the argument 'x' in selecting a method for function 'toString': Detected different colcount visibility among sibling facets (those arising from the same split_cols_by* layout instruction). This is not supported.
# # Set count values to NA if you want a blank space to appear as the displayed count for particular facets.
# # First disagreement occured at paths:
# # ARM[A: Drug X]->SEX[F]
# # ARM[A: Drug X]->SEX[M]
## -----------------------------------------------------------------------------
coldf <- make_col_df(tbl3)
facet_colcount(tbl3, coldf$path[[1]][c(1, 2)]) <- NA_integer_
print(tbl3) # Keeps the missing space
colcount_na_str(tbl3) <- "NaN"
tbl3 # Shows NaN
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.