Fixed label for Roman
diff --git a/shiny/app.R b/shiny/app.R
index 98b6f0e..3473c82 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -3,10 +3,6 @@
library(highcharter)
library(RKorAPClient)
library(tidyverse)
-
-#library(devtools)
-#install_git("https://korap.ids-mannheim.de/gerrit/IDS-Mannheim/idsThemeR")
-
library(idsThemeR)
corpus=c("", "referTo ratskorpus-2023-1", "referTo drukola.20180909.1b_words")
@@ -182,7 +178,11 @@
hc_add_series(type = "bar", data = df, hcaes(texttype, tokens, group=corpus)) %>%
hc_xAxis(categories = df$texttype %>%
str_replace_all("Zz", "Z") %>%
- str_replace_all("[/.*)():^\\[\\]]", "") %>% str_replace_all("\\|", "/")) %>%
+ str_replace_all("Rr", "R") %>%
+ str_replace_all("z]", "") %>%
+ str_replace_all("\\|\\$", "") %>%
+ str_replace_all("[/.*)():^\\[\\]]", "") %>%
+ str_replace_all("\\|", "/")) %>%
hc_title(text="Texttyp")
hc
})