commit 74c98c85a2dbbde1e5a3f186e3ff190089f96b10
author Rainer Perkuhn <perkuhn@ids-mannheim.de> Wed Dec 06 10:28:55 2023 +0100
committer Rainer Perkuhn <perkuhn@ids-mannheim.de> Wed Dec 06 10:28:55 2023 +0100
tree b6e83fcae045d4dca45439ce4dbde1ddd2024a12
parent 1507a0f60d271ffd1517714b76e32f8d29a8cfb7

Fixed RE Bug for excluding Romanze

shiny/app.R

diff --git a/shiny/app.R b/shiny/app.R
index ca4b940..34efbb7 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -167,7 +167,7 @@
     corpus <- vcFromString(input$cq)
 
     texttypes <-
-      c("/[^:]*[Zz]eitung.*/", "/(Zeitschrift|Magazin).*/", "/Agenturmeldung.*/", "/Enzyklopädie.*/", "/.*Diskussion.*/", "/.*[Rr]oman([^z]|$)/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/")
+      c("/[^:]*[Zz]eitung.*/", "/(Zeitschrift|Magazin).*/", "/Agenturmeldung.*/", "/Enzyklopädie.*/", "/.*Diskussion.*/", "/.*[Rr]oman([^z].*|$)/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/")
 
     df <- expand_grid(corpus=corpus, texttype=texttypes) %>%
       mutate(vc = sprintf("%stextType=%s", corpus, texttype)) %>%