context("options")
data(mtcars)
data(iris)
# add labels to dataset
mtcars = apply_labels(mtcars,
mpg = "Miles/(US) gallon",
cyl = "Number of cylinders",
disp = "Displacement (cu.in.)",
carb = "Carbureuter",
hp = "Gross horsepower",
vs = "Engine",
vs = num_lab("
0 V-engine
1 Straight engine
"),
am = "Transmission",
am = num_lab("
0 Automatic
1 Manual
")
)
tbl = mtcars %>%
tab_cols(total(), am %nest% vs) %>%
tab_cells(cyl) %>%
tab_stat_fun(Mean = w_mean, "Std. dev" = w_sd, "Valid N" = w_n) %>%
tab_stat_cpct() %>%
tab_cells(carb) %>%
tab_stat_fun(Mean = w_mean, "Std. dev" = w_sd, "Valid N" = w_n) %>%
tab_stat_cpct() %>%
tab_pivot()
expss_output_default()
expss_digits(NA)
options(width = 1000)
# expect_output_file(print(tbl[, 1:3]),
# "rds/print_etable_unrounded.txt")
expect_output_file(print(tbl[, 1:4], remove_repeated = FALSE),
"rds/print_etable_unrounded2.txt")
expss_digits(2)
expect_output_file(print(tbl[, 1:3]),
"rds/print_etable_digits2.txt")
expect_output_file(print(tbl[, 1:4], remove_repeated = FALSE),
"rds/print_etable_digits2_2.txt")
# expect_output_file(print(tbl[, 1:3], digits = NA),
# "rds/print_etable_unrounded.txt")
expss_digits()
expect_output_file(print(tbl[, 1:3]),
"rds/print_etable.txt")
expect_output_file(print(tbl[, 1:4], remove_repeated = FALSE),
"rds/print_etable_2.txt")
expect_silent(capture.output(print(tbl[, FALSE])))
expect_output_file(print(tbl[FALSE, ]),
"rds/print_etable_zero_rows.txt")
expect_silent(capture.output(print(tbl[FALSE, FALSE])))
expect_output_file(print(tbl[, 1]),
"rds/print_etable_single_column.txt")
colnames(tbl)[1] = "my custom label"
expect_output_file(print(tbl[, 1:3]),
"rds/print_etable_custom_label.txt")
expss_digits(4)
expect_output_file(print(cro_mean(iris[,-5], list(iris$Species, total()))),
"rds/cro_mean_out.txt")
expss_digits()
expss_output_rnotebook()
# expect_output_file(print(tbl),
# "rds/print_etable_rnotebook.txt")
expss_output_viewer()
aa = capture_output(
expect_identical(print(tbl), NULL)
)
expss_output_raw()
expect_output_file(print(tbl[, 1:2]),
"rds/print_etable_raw.txt")
expss_output_default()
# res = expss:::knit_print.etable(tbl)
# expect_equal_to_reference(res, "rds/knit_print.rds", update = FALSE)
# expss_output_rnotebook()
# colnames(tbl) = enc2utf8(colnames(tbl))
# tbl[[1]] = enc2utf8(tbl[[1]])
# expect_output_file(print(tbl),
# "rds/print_etable_rnotebook.txt")
expss_output_default()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.