delete modify_footnote

aassuied-ps · aassuied-ps · commit f08f6e3fab96 · 2024-11-21T09:48:02.000+01:00
diff --git a/R/fda-table_32.R b/R/fda-table_32.R
@@ -54,8 +54,6 @@ make_table_32 <- function(df,
       add_overall(last = TRUE, col_label = paste0("**", lbl_overall, "**  \n N = {n}"))
   }
 
-  tbl_gts <- tbl_gts %>% modify_footnote(update = everything() ~ NA)
-
   tbl <- gtsummary::with_gtsummary_theme(
     x = gtsummary::theme_gtsummary_compact(),
     expr = as_gt(tbl_gts)
diff --git a/R/fda-table_33.R b/R/fda-table_33.R
@@ -55,8 +55,6 @@ make_table_33 <- function(df,
       add_overall(last = TRUE, col_label = paste0("**", lbl_overall, "**  \n N = {n}"))
   }
 
-  tbl_gts <- tbl_gts |> modify_footnote(update = everything() ~ NA)
-
   tbl <- gtsummary::with_gtsummary_theme(
     x = gtsummary::theme_gtsummary_compact(),
     expr = as_gt(tbl_gts)

Original file line number	Diff line number	Diff line change
`@@ -54,8 +54,6 @@ make_table_32 <- function(df,`
`54`	`54`	`add_overall(last = TRUE, col_label = paste0("", lbl_overall, " \n N = {n}"))`
`55`	`55`	`}`
`56`	`56`
`57`		`- tbl_gts <- tbl_gts %>% modify_footnote(update = everything() ~ NA)`
`58`		`-`
`59`	`57`	`tbl <- gtsummary::with_gtsummary_theme(`
`60`	`58`	`x = gtsummary::theme_gtsummary_compact(),`
`61`	`59`	`expr = as_gt(tbl_gts)`
Original file line number	Diff line number	Diff line change
`@@ -55,8 +55,6 @@ make_table_33 <- function(df,`
`55`	`55`	`add_overall(last = TRUE, col_label = paste0("", lbl_overall, " \n N = {n}"))`
`56`	`56`	`}`
`57`	`57`
`58`		`- tbl_gts <- tbl_gts \|> modify_footnote(update = everything() ~ NA)`
`59`		`-`
`60`	`58`	`tbl <- gtsummary::with_gtsummary_theme(`
`61`	`59`	`x = gtsummary::theme_gtsummary_compact(),`
`62`	`60`	`expr = as_gt(tbl_gts)`