Make highcharter boxplot demo clickable
Change-Id: Ia1ce0844440431eed586286547b3b84370dfb495
diff --git a/demo/highcharter-boxplot.R b/demo/highcharter-boxplot.R
index c56120e..56d3f19 100644
--- a/demo/highcharter-boxplot.R
+++ b/demo/highcharter-boxplot.R
@@ -26,7 +26,8 @@
hc_yAxis(title=list(text="IPM")) %>%
hc_xAxis(categories = c("FOLK-excerpt", "DeReKo")) %>%
hc_legend(enabled = FALSE) %>%
- hc_title(text = "Frequency of 'sozusagen' in FOLK (excerpt) vs. DeReKo")
+ hc_title(text = "Frequency of 'sozusagen' in FOLK (excerpt) vs. DeReKo") %>%
+ hc_add_onclick_korap_search()
print(hc)