Use TRUE and FALSE instead of T and F
Change-Id: I4f419313d56a9b58a96879ff6df7c9f2d873dfb4
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))
diff --git a/demo/writtenVsSpoken.R b/demo/writtenVsSpoken.R
index 6e63399..87b93b4 100644
--- a/demo/writtenVsSpoken.R
+++ b/demo/writtenVsSpoken.R
@@ -2,7 +2,7 @@
# install_github("KorAP/RKorAPClient")
library(RKorAPClient)
library(ggplot2)
-g <- new("KorAPConnection", verbose=T) %>%
+g <- new("KorAPConnection", verbose=TRUE) %>%
frequencyQuery("sozusagen/i", vc=c("corpusSigle=FOLK", "corpusSigle!=FOLK")) %>%
ipm() %>%
mutate(corpus=c("FOLK", "DeReKo")) %>%