commit d143cd0e10fe52601564a2ea65272b66d062a6d9
author Rainer Perkuhn <perkuhn@ids-mannheim.de> Wed Dec 13 16:19:27 2023 +0100
committer Rainer Perkuhn <perkuhn@ids-mannheim.de> Wed Dec 13 16:19:27 2023 +0100
tree 503edfaa8ef3af8549532ebd93ad90a5bbb3faba
parent ec25053b6f8d6b1346b2f80e7b40e28ff2db0cd1

Added 4 more texttypes

shiny/app.R

diff --git a/shiny/app.R b/shiny/app.R
index 2bce6dc..f807658 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -168,7 +168,8 @@
 
     texttypes <-
       c("/[^:]*[Zz]eitung.*/", "/(Zeitschrift|Magazin).*/", "/Agenturmeldung.*/", "/Enzyklopädie.*/", "/.*Diskussion.*/",
-        "/.*[Rr]oman([^z].*)?/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/")
+        "/.*[Rr]oman([^z].*)?/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/", "/Protokoll.*/", "/Chat/",
+        "/.*[Bb]ericht.*/", "/.*Abhandlung.*/")
 
     df <- expand_grid(corpus=corpus, texttype=texttypes) %>%
       mutate(vc = sprintf("%stextType=%s", corpus, texttype)) %>%