From f67fc0d5b93ea805d4eca81f336e903fe41bbba3 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Mon, 6 Dec 2021 23:19:11 +0000
Subject: [PATCH] added functions.R (makeFlextable)
---
R/functions.R | 14 ++++++++++++++
1 file changed, 14 insertions(+)
create mode 100644 R/functions.R
diff --git a/R/functions.R b/R/functions.R
new file mode 100644
index 0000000..774caee
--- /dev/null
+++ b/R/functions.R
@@ -0,0 +1,14 @@
+# useful functions
+# use source(here::here("R", "functions.R")) to load
+
+require(flextable) # use require so it fails if not present & can't install
+
+makeFlexTable <- function(df, cap = "caption"){
+ # makes a pretty flextable - see https://cran.r-project.org/web/packages/flextable/index.html
+ ft <- flextable::flextable(df)
+ ft <- flextable::colformat_double(ft, digits = 1)
+ ft <- flextable::fontsize(ft, size = 9)
+ ft <- flextable::fontsize(ft, size = 10, part = "header")
+ ft <- flextable::set_caption(ft, caption = cap)
+ return(flextable::autofit(ft))
+}
\ No newline at end of file
--
GitLab