if (FALSE) {
library(highcharter)
library(tidyr)
new("KorAPConnection", verbose = TRUE) %>%
collocationScoreQuery("Team", "agil", vc = paste("pubDate in", c(2014:2018)),
lemmatizeNodeQuery = TRUE, lemmatizeCollocateQuery = TRUE) %>%
pivot_longer(c("O", "E")) %>%
hchart(type="spline", hcaes(label, value, group=name)) %>%
hc_add_onclick_korap_search()
}
Run the code above in your browser using DataLab