tests/testthat/_snaps/theme_gtsummary.md

In ddsjoberg/gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

theme_gtsummary_eda() works

Code
  as.data.frame(with_gtsummary_theme(theme_gtsummary_eda(), expr = tbl_summary(
    trial, include = c(age, grade))))
Output
    **Characteristic** **N = 200**
  1                Age        <NA>
  2    Median (Q1, Q3) 47 (38, 57)
  3          Mean (SD)     47 (14)
  4           Min, Max       6, 83
  5            Unknown          11
  6              Grade        <NA>
  7                  I  68 (34.0%)
  8                 II  68 (34.0%)
  9                III  64 (32.0%)

theme_gtsummary_journal('lancet') works

Code
  with_gtsummary_theme(theme_gtsummary_journal("lancet"), expr = as.data.frame(
    modify_column_hide(add_difference(tbl_summary(trial, by = trt, include = marker,
      label = marker ~ "marker", missing = "no")), c("stat_2"))))
Output
    **Characteristic** **Drug A**  \nN = 98 **Difference**    **95% CI**
  1             marker   0·84 (0·23 – 1·60)           0·20 -0·05 to 0·44
    **p-value**
  1        0·12

theme_gtsummary_journal('nejm') works

Code
  with_gtsummary_theme(theme_gtsummary_journal("nejm"), expr = as.data.frame(
    modify_column_hide(add_difference(tbl_summary(trial, by = trt, include = age,
      label = age ~ "Age", missing = "no")), c("stat_2"))))
Output
    **Characteristic** **Drug A**  \nN = 98 **Difference**  **95% CI**
  1                Age         46 (37 – 60)          -0.44 -4.6 to 3.7
    **p-value**
  1        0.83

theme_gtsummary_journal('jama') works

Code
  with_gtsummary_theme(theme_gtsummary_journal("jama"), expr = as.data.frame(
    modify_column_hide(add_difference(tbl_summary(trial, by = trt, include = age,
      label = age ~ "Age", missing = "no")), c("stat_2"))))
Output
    **Characteristic** **Drug A**  \nN = 98 **Difference** **(****95% CI****)**
  1  Age, Median (IQR)         46 (37 – 60)                 -0.44 (-4.6 to 3.7)
    **p-value**
  1        0.83

Code
  with_gtsummary_theme(theme_gtsummary_journal("jama"), expr = as.data.frame(
    tbl_regression(lm(hp ~ am, mtcars))))
Output
    **Characteristic** **Beta** **(95% CI)** **p-value**
  1                 am       -33 (-83 to 16)        0.18

Code
  with_gtsummary_theme(theme_gtsummary_journal("jama"), expr = as.data.frame(
    modify_column_hide(add_difference(tbl_svysummary(svy_trial, by = trt,
      include = age, label = age ~ "Age", missing = "no")), c("stat_2"))))
Output
    **Characteristic** **Drug A**  \nN = 98 **Difference** **(****95% CI****)**
  1  Age, Median (IQR)         46 (37 – 60)                  0.44 (-3.7 to 4.6)
    **p-value**
  1        0.83

theme_gtsummary_journal('qjecon') works

Code
  with_gtsummary_theme(theme_gtsummary_journal("qjecon"), expr = as.data.frame(
    tbl_regression(lm(mpg ~ factor(cyl) + hp, mtcars))))
Output
    **Characteristic** **Beta**  \n**(SE)**
  1        factor(cyl)                 <NA>
  2                  4                 <NA>
  3                  6     -6.0**  \n(1.64)
  4                  8     -8.5**  \n(2.33)
  5                 hp     -0.02  \n(0.015)

check_gtsummary_theme()

Code
  check_gtsummary_theme(mean)
Condition
  Warning:
  The `x` argument must be a named list.

Code
  check_gtsummary_theme(list(not_a_theme_element = letters))
Condition
  Warning:
  The following names of `x` are not accepted theme elemets: "not_a_theme_element".

Code
  check_gtsummary_theme(list(`add_global_p-str:type` = letters))
Message
  v Looks good!

with_gtsummary_theme()

Code
  theme_gtsummary_compact()
Message
  Setting theme "Compact"
Code
  with_gtsummary_theme(x = list(`pkgwide-str:theme_name` = "My new theme"), expr = identical(
    1L, 1L), msg_ignored_elements = "The following theme elements are temporarilty overwritten: {.val {elements}}.")
Message
  The following theme elements are temporarilty overwritten: "pkgwide-str:theme_name".
Output
  [1] TRUE
Code
  reset_gtsummary_theme()

Code
  theme_gtsummary_language("es")
Message
  Setting theme "language: es"
Code
  with_gtsummary_theme(theme_gtsummary_eda(), expr = as_kable(tbl_summary(trial,
    include = c(age, grade))))
Output


  |**Característica** | **N = 200** |
  |:------------------|:-----------:|
  |Age                |             |
  |Mediana (Q1, Q3)   | 47 (38, 57) |
  |Media (DE)         |   47 (14)   |
  |Min, Max           |    6, 83    |
  |Desconocido        |     11      |
  |Grade              |             |
  |I                  | 68 (34.0%)  |
  |II                 | 68 (34.0%)  |
  |III                | 64 (32.0%)  |
Code
  as_kable(tbl_summary(trial, include = age))
Output


  |**Característica** | **N = 200** |
  |:------------------|:-----------:|
  |Age                | 47 (38, 57) |
  |Desconocido        |     11      |
Code
  reset_gtsummary_theme()

ddsjoberg/gtsummary documentation built on March 1, 2025, 7:52 p.m.