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) %>%