first slides upload

13_Hanna_Tillmanns/.Rproj.user/998809F7/console06/INDEX001

@@ -0,0 +1 @@
+[]

13_Hanna_Tillmanns/.Rproj.user/998809F7/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "path" : "C:/Users/tillmanns/Desktop/SatRDay",
+    "sortOrder" : [
+        {
+            "ascending" : true,
+            "columnIndex" : 2
+        }
+    ]
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab" : 0
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left" : {
+        "panelheight" : 867,
+        "splitterpos" : 363,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 906
+    },
+    "right" : {
+        "panelheight" : 867,
+        "splitterpos" : 550,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 906
+    }
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/pcs/workbench-pane.pper

@@ -0,0 +1,6 @@
+{
+    "TabSet1" : 0,
+    "TabSet2" : 2,
+    "TabZoom" : {
+    }
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/rmd-outputs

@@ -0,0 +1,9 @@
+G:/TIL/SatRDay/SatRDay_Example_automatedReports.pdf
+G:/TIL/SatRDay/SatRDay_Example.pdf
+C:/Users/tillmanns/Desktop/SatRDay/SatRDay_Example.pdf
+C:/Users/tillmanns/Desktop/SatRDay/SatRDay_Example.pdf
+
+
+
+
+

13_Hanna_Tillmanns/.Rproj.user/998809F7/saved_source_markers

@@ -0,0 +1 @@
+{"active_set":"","sets":[]}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/per/t/D02AC1E2

@@ -0,0 +1,20 @@
+{
+    "collab_server" : "",
+    "contents" : "",
+    "created" : 1560500639182.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "1750734645",
+    "id" : "D02AC1E2",
+    "lastKnownWriteTime" : 1560429945,
+    "last_content_update" : 1560429945,
+    "path" : "G:/TIL/SatRDay/SatRDay_Example_automatedReports.Rmd",
+    "project_path" : "SatRDay_Example_automatedReports.Rmd",
+    "properties" : {
+    },
+    "relative_order" : 1,
+    "source_on_save" : false,
+    "source_window" : "",
+    "type" : "r_markdown"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/per/t/D02AC1E2-contents

@@ -0,0 +1,181 @@
+---
+author: "Hanna Tillmanns (WIdO)" 
+date: '`r paste("Stand: ",format(Sys.Date(), "%d.%m.%Y"),sep="")`'
+header-includes:
+- \renewcommand{\contentsname}{} #Changing title of content, here none
+
+output: 
+  pdf_document:
+    keep_tex: true
+    toc: true
+    toc_depth: 2
+    number_sections: true
+subparagraph: true
+fontsize: 12pt
+tables: true  
+params:
+   col: "E"
+
+title: \vspace{3in}`r paste0("Report about ",params$col,"-colored Diamonds")`
+---
+
+#Defining parameters "outside" the script
+
+To be able to render the scripts with different parameters and not having to start it by hand, I use the "params"-value of the YAML.
+
+
+The scripts are then startet with rmarkdown::render. 
+
+
+#Define all the general things and import the data
+
+First things first. At the beginning I load all libraries, define the general parameters and import all of the data. In my case importing the data takes some time, therefore it is nice not having to repeat this for every single child-script, especially those that run several times. 
+
+
+```{r setup, include=TRUE, echo=TRUE, message=FALSE, warning=FALSE, tidy=TRUE, results="hide"}
+
+# define parames
+col<- params$col
+
+
+#load librarys
+
+library(openxlsx)
+#library(reshape2)
+#library (RODBC)
+#library(lmtest)
+#library(ggplot2)
+library(foreach)
+library(tidyverse)           
+#library(treemap)
+#library(gridExtra)  
+#library(grid)      
+library(knitr) 
+#library(pander)
+#library(kableExtra) 
+#library(captioner) 
+#library(here)
+#library(RGraphics)
+#library(treemapify)
+
+
+#Creating the Data for the Report
+
+data <- diamonds %>% 
+  filter(color==col)
+
+```
+
+#Creating the Report
+
+The report can be divided into different types of sections:
+
+* all those sections that are within the parent script 
+* sections that are in child-scripts
+  + without a loop and without a condition
+  + with a condition that has to be true to render the file
+  + within a loop, which creates a section for every defined specificaton.
+
+
+
+#Single child-script
+
+```{r}
+
+# calling a single child with
+
+#```{r single_child,child = 'Single_Child.rmd'}
+#```
+
+```
+
+
+
+```{r single_child,child = 'Single_Child.rmd'}
+```
+
+
+#Conditional child-script
+
+The script will only be evaluated if the condition is true. This is a nice way to cope for example with missing data. 
+
+
+
+```{r conditional_print_test, include=TRUE, echo=TRUE, message=FALSE, warning=FALSE, tidy=TRUE}
+
+#creating the test
+
+test <- ifelse(data %>% 
+                   filter(clarity=="SI2") %>% nrow()>0,TRUE,FALSE)
+
+
+```
+
+
+```{r}
+
+#calling the conditional child-script with: 
+
+#```{r conditional_print_script, child='cond_child.Rmd', eval = test}
+#```
+
+```
+
+
+```{r conditional_print_script, child='cond_child.Rmd', eval = test}
+```
+
+#Looping over child-scripts
+
+As the names of chunks may not be repeated, the chunks should be nameless.
+
+```{r LOOP_CHILD, include=TRUE, echo=TRUE, message=FALSE, warning=FALSE, tidy=TRUE, results="hide"}
+
+
+  out.loop<-NULL #creating the output
+
+#Creating a chapter for every cut
+
+foreach(y= c("Premium","Fair")) %do% {  
+
+  #Parameters used within the loop can be created
+
+  cut.short <- case_when(y=="Ideal"~"I",
+                         y=="Premium"~"P",
+                         y=="Good"~"G",
+                         y=="Very Good"~"V",
+                         y=="Fair"~"F"
+                         )
+  headline<-  paste0("# Section about the cut ", y)
+
+  #Creating the chapter for every cut
+
+  res.loop<-c(headline  
+      ,   knit_child('loop_child_1.Rmd' , envir=knit_global())  
+      ,   knit_child('loop_child_2.RMD' , envir=knit_global())       
+                      )
+
+  #Puting the chapters together
+
+  out.loop <- c(out.loop,res.loop)
+
+  }
+
+```
+
+\newpage
+
+
+```{r paste_Loop}
+
+#Pasting the chapters into the text with the following inline code
+
+# `r  paste(out.loop, collapse='\n')`
+
+```
+
+`r  paste(out.loop, collapse='\n')`
+
+
+
+

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/1071EA8D

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "50,0",
+    "scrollLine" : "35",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/124DDC7C

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "3,87",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/235B9755

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "11,80",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/25BE54B

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "0,0",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/2B54D14E

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "252,37",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/44F86E6B

@@ -0,0 +1,2 @@
+{
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/5E878D08

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "35,0",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/7399B13A

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "3,0",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/80F77BD5

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "9,2",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/84114051

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "12,29",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/8CC81324

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "3,0",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/967F276C

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "1,0",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/A849FA56

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "77,2",
+    "scrollLine" : "69",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/AB749A88

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "12,29",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/AE465C01

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "10,0",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/B7B96F8

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "619,6",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/C56FB822

@@ -0,0 +1,2 @@
+{
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/CD29E08F

@@ -0,0 +1,4 @@
+{
+    "cursorPosition" : "0,0",
+    "scrollLine" : "0"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/F5054BF4

@@ -0,0 +1,5 @@
+{
+    "cursorPosition" : "1,0",
+    "scrollLine" : "0",
+    "tempName" : "Untitled2"
+}

13_Hanna_Tillmanns/.Rproj.user/998809F7/sources/prop/INDEX

@@ -0,0 +1,19 @@
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FR-Skripte%2FPIA_BETRIEB_ICDKAP.Rmd="5E878D08"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FR-Skripte%2FPIA_BETRIEB_WOHNORT.Rmd="235B9755"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FR-Skripte%2FPIA_KV_ENTWICKLUNG.Rmd="2B54D14E"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FR-Skripte%2FPIA_PARENT.rmd="B7B96F8"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FR-Skripte%2FPIA_output_erstellen.R="C56FB822"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FSatRDay_Example.Rmd="1071EA8D"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2FSingle_Child.Rmd="8CC81324"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Fcond_child.Rmd="25BE54B"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Fcond_print.Rmd="124DDC7C"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Fformate.sty="80F77BD5"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Floop_child_1.Rmd="F5054BF4"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Floop_child_2.Rmd="84114051"
+C%3A%2FUsers%2Ftillmanns%2FDesktop%2FSatRDay%2Floop_child_2a.Rmd="AE465C01"
+G%3A%2FTIL%2FSatRDay%2FSatRDay_Example.Rmd="A849FA56"
+G%3A%2FTIL%2FSatRDay%2FSatRDay_Example_automatedReports.Rmd="44F86E6B"
+G%3A%2FTIL%2FSatRDay%2FSingle_Child.Rmd="7399B13A"
+G%3A%2FTIL%2FSatRDay%2Fcond_child.Rmd="CD29E08F"
+G%3A%2FTIL%2FSatRDay%2Floop_child_1.Rmd="967F276C"
+G%3A%2FTIL%2FSatRDay%2Floop_child_2.Rmd="AB749A88"