put policy comparions in a separate pdf

assets/policy_comparisons.rmd

@@ -0,0 +1,76 @@
+--- 
+title: "RDM Policy Comparisons"
+author: "FSW Data Steward"
+date: '`r format(Sys.time(), "%d %B %Y")`'
+geometry: margin=2cm
+output: 
+ pdf_document:
+  toc: true
+---
+
+<!---
+This document prints out policy comparisons between FSW policy and the (inter)national policies
+to a PDF file. The pdf output is uploaded to the VU website, and linked to in the FSS RDM Guidelines.
+ 
+It processes data from two tables, that should both be in the same folder as this one:
+- policy_comparisons_meta.csv: information about the policies
+- policy_comparisons.csv: point-by-point comparisons 
+
+-->
+
+
+
+```{r, include=FALSE}
+library(tidyverse)
+library(kableExtra)
+
+
+comparisons <-
+   read_csv("policy_comparisons.csv")
+
+meta <-
+   read_csv("policy_comparisons_meta.csv")
+
+render_table <- function(foldheaders = T){
+
+	for (i in 1:nrow(meta)){
+		cat(paste("\\pagebreak\n\n"))
+
+		if (foldheaders) {
+			cat("<details>\n\n")
+			cat(paste("<summary><b>",meta$code_name[i]),"</b></summary>\n\n")
+		} else {
+			cat(paste("# ",meta$code_name[i]),"\n\n")
+		}
+		cat(paste("**Date:**",meta$code_date[i],"\n\n"))
+		cat(paste("**Last reviewed:**",meta$accessed_on[i],"\n\n"))
+		cat(paste("**URL:**",meta$url[i],"\n\n"))
+
+		comparisons %>%
+			filter(id == meta$id[i]) %>%
+			select(code,fsw) %>%
+			kable(col.names = c(meta$short_name[i],"FSS"),escape = F,
+					booktabs = T ,
+            	longtable=T,
+            	position = "h") %>%
+			column_spec(1,width="8.5cm") %>%
+			column_spec(2,width="8.5cm") %>%
+			kable_styling(latex_options = "repeat_header") %>%
+			kable_styling(latex_options = "striped") %>%
+
+			print()
+		cat("\n")
+		if (foldheaders) {
+			cat("</details>\n\n")
+		}
+	}
+
+
+}
+
+```
+
+
+```{r, echo=F, message = FALSE, results="asis"}
+	render_table(foldheaders=F)
+```

index.Rmd

@@ -97,6 +97,9 @@ Make sure all links are defined here so that they can be easily updated.
 [fss-new-project]: new-rdm.html
 
 
+[policy-comparisons]: assets/policy_comparisons.pdf
+
+
 <!-- VU-wide Resources -->
 
 [libguide]: https://libguides.vu.nl/rdm

pages/05_02_01_fss_guidelines_rdm.rmd

@@ -9,7 +9,7 @@ File history can be found in the git repo: https://github.com/vu-fss/rdm
 
 As a faculty committed to excellence in the quality of the research our staff and students undertake, it is essential to have guidelines on good practice in Research Data Management (RDM) as part of our framework to support the integrity of our research. These FSS guidelines serve both as a means of developing and supporting a culture of good practice in data management and demonstrating that we are committed to a culture and environment where high standards are encouraged and expected.
 
-The purpose of these guidelines is to reduce work pressure by condensing the various, and often conflicting, regulations into one cohesive set of procedures that ensure maximum compliance. Details on the various underlying policies can be found in the appendix below.
+The purpose of these guidelines is to reduce work pressure by condensing the various, and often conflicting, regulations into one cohesive set of procedures that ensure maximum compliance. Details on the various underlying policies, and how they're reflected in these guidelines, can be found [here][policy-comparisons].
 
 ## Stepping stones for good data management
 
@@ -97,49 +97,3 @@ These guidelines apply to all faculty staff members who conduct research in the
 print_more_resources()
 
 ```
-
-## Appendix: Underlying policies
-
-The list below contains the regulations that these guidelines are based on. Since there are often conflicts between the regulations, the list includes a comparison between each item and these guidelines, so that any deviation from the regulation is made explicit.
-
-```{r, include=FALSE}
-
-comparisons <-
-   read_csv("assets/policy_comparisons.csv")
-
-meta <-
-   read_csv("assets/policy_comparisons_meta.csv")
-
-render_table <- function(foldheaders = T){
-
-	for (i in 1:nrow(meta)){
-		if (foldheaders) {
-			cat("<details>\n\n")
-			cat(paste("<summary><b>",meta$code_name[i]),"</b></summary>\n\n")
-		} else {
-			cat(paste("### ",meta$code_name[i]),"\n\n")
-		}
-		cat(paste("**Date:**",meta$code_date[i],"\n\n"))
-		cat(paste("**Last reviewed:**",meta$accessed_on[i],"\n\n"))
-		cat(paste("**URL:**",meta$url[i],"\n\n"))
-
-		comparisons %>%
-			filter(id == meta$id[i]) %>%
-			select(code,fsw) %>%
-			kable(col.names = c(meta$short_name[i],"FSS"),striped = T,escape = F) %>%
-			print()
-		cat("\n")
-		if (foldheaders) {
-			cat("</details>\n\n")
-		}
-	}
-
-
-}
-
-```
-
-```{r, echo=F, message = FALSE, results="asis"}
-	render_table(foldheaders=T)
-```
-