Include Fachbuch in Sachbuch
Change-Id: Ib56059d1a305913d2a6b32542d90d2e1aefed0f8
diff --git a/shiny/app.R b/shiny/app.R
index 3244382..c18b2d7 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.*/", "/Roman.*/", "/Newsgroup.*/", "/Tagebuch.*/", "/.*Sachbuch.*/")
df <- expand_grid(corpus=corpus, texttype=texttypes) %>%
mutate(vc = sprintf("%stextType=%s", corpus, texttype)) %>%