"weld" the few short pipes into one expression

Merck · Aug 12, 2024 · 52a5165 · 52a5165
1 parent fc0d3e1
commit 52a5165
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/R/as_rtf.R b/R/as_rtf.R
@@ -251,16 +251,11 @@ as_rtf.fixed_design <- function(
     )
 
   if (!is.null(footnote)) {
-    ans <- ans %>%
-      r2rtf::rtf_footnote(footnote,
-        text_font_size = text_font_size
-      )
+    ans <- r2rtf::rtf_footnote(ans, footnote, text_font_size = text_font_size)
   }
 
   # Prepare output
-  ans %>%
-    r2rtf::rtf_encode() %>%
-    r2rtf::write_rtf(file = file)
+  r2rtf::write_rtf(r2rtf::rtf_encode(ans), file)
 
   invisible(x)
 }