abbreviation updates

ddsjoberg · Dec 10, 2024 · 92ca979 · 92ca979
1 parent ed2b328
commit 92ca979
Show file tree

Hide file tree

Showing 6 changed files with 22 additions and 4 deletions.
diff --git a/R/as_kable_extra.R b/R/as_kable_extra.R
@@ -353,7 +353,11 @@ table_styling_to_kable_extra_calls <- function(x, escape, format, addtl_fmt, ...
       seq_len(nrow(x$table_styling$source_note)),
       \(i) {
         expr(
-          kableExtra::footnote(number = !!x$table_styling$source_note$source_note[i], escape = !!escape)
+          kableExtra::footnote(
+            general = !!x$table_styling$source_note$source_note[i],
+            escape = !!escape,
+            general_title = ""
+          )
         )
       }
     )
@@ -371,8 +375,7 @@ table_styling_to_kable_extra_calls <- function(x, escape, format, addtl_fmt, ...
                              ": ", .
                            )),
             escape = !!escape,
-            general_title = "",
-            footnote_order = c("number", "alphabet", "symbol", "general")
+            general_title = ""
           )
         ),
       .default = list()

diff --git a/R/modify_source_note.R b/R/modify_source_note.R
@@ -22,7 +22,12 @@
 #' @name modify_source_note
 #'
 #' @examplesIf identical(Sys.getenv("NOT_CRAN"), "true") || identical(Sys.getenv("IN_PKGDOWN"), "true")
+#' # Example 1 ----------------------------------
+#' tbl <- tbl_summary(trial, include = c(marker, grade), missing = "no") |>
+#'   modify_source_note("Results as of June 26, 2015")
 #'
+#' # Example 2 ----------------------------------
+#' remove_source_note(tbl, source_note_id = 1)
 NULL
 
 #' @export

diff --git a/man/modify_abbreviation.Rd b/man/modify_abbreviation.Rd
diff --git a/man/modify_source_note.Rd b/man/modify_source_note.Rd
diff --git a/man/tbl_continuous.Rd b/man/tbl_continuous.Rd
diff --git a/man/tbl_regression.Rd b/man/tbl_regression.Rd