diff --git a/demo/highcharter-example.R b/demo/highcharter-example.R
index 4d312ba..e2947ea 100644
--- a/demo/highcharter-example.R
+++ b/demo/highcharter-example.R
@@ -4,7 +4,7 @@
                           years = c(2000:2010),
                           as.alternatives = length(query) > 1,
                           vc = "textType = /Zeit.*/ & availability!=QAO-NC-LOC:ids & pubDate in",
-                          kco = new("KorAPConnection", verbose=T) ) {
+                          kco = new("KorAPConnection", verbose=TRUE) ) {
   hc <-
     frequencyQuery(kco, query, paste(vc, years), as.alternatives=as.alternatives) %>%
     hc_freq_by_year_ci(as.alternatives)
@@ -13,11 +13,11 @@
 }
 
 saveHCPlot <- function(hc, fname) {
-  htmlwidgets::saveWidget(hc, file=fname, selfcontained = T)
+  htmlwidgets::saveWidget(hc, file=fname, selfcontained = TRUE)
 }
 
 #h1 <-plotHighchart(c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn"), c(1980:2018))
-h1 <- plotHighchart(c("Leser | Lesern | Lesers", 'Leserin | Leserinnen', 'LeserIn | LeserInnen', '"Leser[_\\*]in.*"'), c(1985:2018), as.alternatives = F)
+h1 <- plotHighchart(c("Leser | Lesern | Lesers", 'Leserin | Leserinnen', 'LeserIn | LeserInnen', '"Leser[_\\*]in.*"'), c(1985:2018), as.alternatives = FALSE)
 #plotHighchart(c("Tollpatsch", "Tolpatsch"), c(1991:2018))