removed texttype Newsgroup to avoid counting Newsgroup-Diskussion texts twice
diff --git a/shiny/app.R b/shiny/app.R
index f807658..b88c8c4 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -168,7 +168,7 @@
texttypes <-
c("/[^:]*[Zz]eitung.*/", "/(Zeitschrift|Magazin).*/", "/Agenturmeldung.*/", "/Enzyklopädie.*/", "/.*Diskussion.*/",
- "/.*[Rr]oman([^z].*)?/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/", "/Protokoll.*/", "/Chat/",
+ "/.*[Rr]oman([^z].*)?/", "/Tagebuch.*/", "/.*Sachbuch.*/", "/Protokoll.*/", "/Chat/",
"/.*[Bb]ericht.*/", "/.*Abhandlung.*/")
df <- expand_grid(corpus=corpus, texttype=texttypes) %>%