From ac8e55e58a3a914d631a0ffe836ff018dab229b6 Mon Sep 17 00:00:00 2001
From: JosuaKugler <josua.kugler@gmail.com>
Date: Wed, 28 Jul 2021 21:22:28 +0200
Subject: [PATCH] fix repair

---
 R/repair.R                | 5 ++++-
 hitler_texts/parse.py     | 8 ++++++++
 vignettes/funwithdata.Rmd | 1 +
 3 files changed, 13 insertions(+), 1 deletion(-)
 create mode 100644 hitler_texts/parse.py

diff --git a/R/repair.R b/R/repair.R
index b079f37..53ff264 100644
--- a/R/repair.R
+++ b/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
+         )
 }
diff --git a/hitler_texts/parse.py b/hitler_texts/parse.py
new file mode 100644
index 0000000..feceba6
--- /dev/null
+++ b/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=" "))
+            
diff --git a/vignettes/funwithdata.Rmd b/vignettes/funwithdata.Rmd
index 098ce4c..1217c0d 100644
--- a/vignettes/funwithdata.Rmd
+++ b/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")
 ```
+