create files for phase 1 report

source/report/formal/phase_1/knit_report.R

@@ -0,0 +1,5 @@
+rmarkdown::render(
+  input = "source/report/formal/phase_1/master.Rmd",
+  output_dir = "output/formal/phase_1",
+  output_file = "phase_1_report.pdf"
+  )

source/report/formal/phase_1/master.Rmd

@@ -0,0 +1,36 @@
+---
+title: "Phase 1 report"
+author: "Janne Adolf"
+date: "`r Sys.Date()`"
+output: 
+  pdf_document:
+    toc: true
+    toc_depth: 2
+toc-title: "Overview"
+knit: (function(inputFile, encoding) {
+  rmarkdown::render(
+  inputFile, 
+  encoding = encoding, 
+  output_dir = "../../../../output/formal/phase_1",
+  output_file = "phase_1_report.pdf"
+  ) })
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+\newpage
+
+```{r child-documents, echo = FALSE, results = 'asis'}
+sections_list <- list.files(path = "sections", full.names = TRUE) 
+children_list <- vector(mode = "list", length = length(sections_list))
+for (i in seq_along(sections_list)) {
+      children_list[[i]] <- knitr::knit_child(
+        sections_list[[i]],
+        quiet = TRUE,
+        envir = environment()
+        )
+    }
+cat(unlist(children_list), sep = "\n")
+```

source/report/formal/phase_1/sections/1_1_demand_side_client.Rmd

@@ -0,0 +1,5 @@
+# Demand side
+
+## Client
+
+\newpage

source/report/formal/phase_1/sections/1_2_demand_side_users.Rmd

@@ -0,0 +1,6 @@
+<!--# Demand side -->
+## Users
+
+
+
+\newpage

source/report/formal/phase_1/sections/2_scientific_basis.Rmd

@@ -0,0 +1,3 @@
+# Scientific basis
+
+\newpage

source/report/formal/phase_1/sections/3_existing_monitoring.Rmd

@@ -0,0 +1,3 @@
+# Existing monitoring
+
+\newpage

source/report/formal/phase_1/sections/4_conditions.Rmd

@@ -0,0 +1,3 @@
+# Conditions
+
+\newpage