add hitler texts, change funwithdata

2021-07-28 20:43:59 +02:00
parent 933d5a244d
commit 63441d886c
11 changed files with 28404 additions and 1 deletions
@@ -27,7 +27,7 @@ First, you need to download all records of the current legislative period.
 fetch_all("../records/") # path to directory where records should be stored
 ```
 Second, those `.xml` files, need to be parsed into `R` `tibbles`. This is accomplished by:
-```{r}
+```r
 read_all("../records/") %>% repair() -> res

 reden <- res$reden
@@ -37,6 +37,16 @@ talks <- res$talks
 We also used `repair` to fix a bunch of formatting issues in the records and unpacked
 the result into more descriptive variables.

+For development purposes, we load the tables from csv files.
+```{r}
+tables <- read_from_csv('csv/')
+
+comments <- tables$comments
+reden <- tables$reden
+redner <- tables$redner
+talks <- tables$talks
+```
+
 ## Analysis

 Now we can start analysing our parsed dataset, e.g. find out which party gives the most talks: