updated footnotes

RConsortium · Apr 18, 2024 · 6efc129 · 6efc129
1 parent 6ce6012
commit 6efc129
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/submission/programs/tlf-efficacy.r b/submission/programs/tlf-efficacy.r
@@ -146,16 +146,9 @@ tbl_1 <- apr0ancova1 %>%
       "{^b} Based on an Analysis of covariance (ANCOVA) model with treatment and baseline value as covariates",
       "CI = Confidence Interval, LS = Least Squares, SD = Standard Deviation"
     )
-  ) %>%
-  rtf_footnote(
-    footnote = c(
-      paste("Table generated on:", Sys.time())
-    ),
-    as_table = FALSE,
-    text_justification = "c"
-  ) %>%
+  ) %>% 
   rtf_source(
-    source = "Source: [pilot3: adam-adsl; adlbc]",
+    source = c(paste("Table generated on:", Sys.time()),"Source: [pilot3: adam-adsl; adlbc]"),
     text_justification = "c"
   )