diff --git a/R/functions.R b/R/functions.R
new file mode 100644
index 0000000000000000000000000000000000000000..774caeeb83aa3a5e7a691888f5ab18b696a30528
--- /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