Merge branch '2020_30_10_EPCs' into 'master'

2020 30 10 EPCs

See merge request SERG/fridayFagPackets!1

EPCsAndCarbon/makeFile.R

+makeReport <- function(f){
+  # default = html
+  rmarkdown::render(input = paste0(here::here("EPCsAndCarbon", f), ".Rmd"),
+                    params = list(title = title,
+                                  subtitle = subtitle,
+                                  authors = authors),
+                    output_file = paste0(here::here("docs/"), f, ".html")
+  )
+  # word
+  rmarkdown::render(input = paste0(here::here("EPCsAndCarbon", f), ".Rmd"),
+                    params = list(title = title,
+                                  subtitle = subtitle,
+                                  authors = authors),
+                    output_file = paste0(here::here("docs/"), f, ".docx"),
+                    output_format = "word_document"
+  )
+}
+
+# >> run report ----
+rmdFile <- "carbonCosts" # not the full path
+title = "What can EPC data tell us about the domestic cost of carbon?"
+subtitle = ""
+authors = "Ben Anderson"
+
+makeReport(rmdFile)
\ No newline at end of file