Changed function for title-like labels to allow NE/NA (with big letter on not first position), substituted ä for ae for Ernährung
diff --git a/shiny/app.R b/shiny/app.R
index 9255ec0..94541f9 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -165,7 +165,7 @@
highchart() %>%
hc_add_series(type = "bar", data = df, hcaes(domain, tokens, group=corpus)) %>%
- hc_xAxis(categories = df$domain %>% str_to_title(locale = "en") )%>%
+ hc_xAxis(categories = df$domain %>% tools::toTitleCase() %>% str_replace_all("ae", "ä") )%>%
hc_title(text="Thema")
})