commit d7748b96a93e185cb6e619e0100cdac36a2606db
author Rainer Perkuhn <perkuhn@ids-mannheim.de> Tue Dec 05 15:51:41 2023 +0100
committer Rainer Perkuhn <perkuhn@ids-mannheim.de> Tue Dec 05 16:05:01 2023 +0100
tree bb1bb6a4d57ce824e65ccaa671d7e9e91eeecc03
parent 25da3919e77e05d52b4e978106696ba8d55189c0

Changed RE for Roman to allow Kriminalroman but to avoid Romanze... and similar in combinations

shiny/app.R

diff --git a/shiny/app.R b/shiny/app.R
index c18b2d7..ca4b940 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.*/", "/Roman.*/", "/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)) %>%