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)