Add (no) translation to useful corpora
diff --git a/scripts/useful_deliko_subcorpora.R b/scripts/useful_deliko_subcorpora.R
index cf72f5a..5bbc06e 100644
--- a/scripts/useful_deliko_subcorpora.R
+++ b/scripts/useful_deliko_subcorpora.R
@@ -100,7 +100,9 @@
extra_corpora <- tribble(
~id, ~de_title, ~en_title, ~corpus_query, ~de_description, ~en_description,
"award_winners", "Buchpreisträger", "Award winners", "award=buchpreis",
- "Buchpreisträger.", "Award winners."
+ "Buchpreisträger.", "Award winners.",
+ "translation", "Übersetzer*in angegeben", "Translator given", 'translator=/.+/', "Übersetzer*in angegeben", "Translator given",
+ "no_translation", "Übersetzer*in nicht angegeben", "Translator not given", 'translator!=/.+/', "Übersetzer*in nicht angegeben – wahrscheinlich keine Übersetzung", "Translator not given – probably no translation",
)
vc_definitions <- bind_rows(genre_definitions, extra_corpora)
@@ -245,7 +247,7 @@
widget_de <- make_table(vc_definitions, "de")
widget_en <- make_table(vc_definitions, "en")
-saveWidget(widget_de, file = "useful_deliko_subcorpora_de.html", selfcontained = TRUE)
-saveWidget(widget_en, file = "useful_deliko_subcorpora_en.html", selfcontained = TRUE)
+saveWidget(widget_de, file = "../data/useful_deliko_subcorpora_de.html", selfcontained = TRUE)
+saveWidget(widget_en, file = "../data/useful_deliko_subcorpora_en.html", selfcontained = TRUE)
message("Generated useful_deliko_subcorpora_de.html and useful_deliko_subcorpora_en.html")