fix repair

R/repair.R

@@ -88,5 +88,8 @@ repair_comments <- function(comments, redner) {
 repair <- function(parse_output) {
     list(redner = repair_redner(parse_output$redner),
          reden = repair_reden(parse_output$reden),
-         talks = repair_talks(parse_output$talks))
+         talks = repair_talks(parse_output$talks),
+         #comments = repair_comments(parse_output$comments)
+         comments = parse_output$comments
+         )
 }

hitler_texts/parse.py

@@ -0,0 +1,8 @@
+import os
+words = []
+for i in range(1, 7):
+    with open(f'hitler_rede_{i}') as f:
+        lines = f.readlines()
+        for line in lines:
+            words.extend(line.split(sep=" "))
+            

vignettes/funwithdata.Rmd

@@ -57,3 +57,4 @@ left_join(reden, redner, by=c("redner" = "id")) %>%
     ggplot(aes(x = fraktion, y = n)) +
     geom_bar(stat = "identity")
 ```
+