Remove slow ca from ids.Rmd demo
Change-Id: I9d6104557e4cf89c19a2e6df7b83df42040dcd9c
diff --git a/examples/ids.Rmd b/examples/ids.Rmd
index 77932fb..a7e62f7 100644
--- a/examples/ids.Rmd
+++ b/examples/ids.Rmd
@@ -61,7 +61,7 @@
## Slide with Plot
-```{r pressure}
+```{r pressure, fig.height=5, fig.width=12, message=F, warning=F}
plot(pressure)
```
@@ -75,32 +75,16 @@
read_tsv("http://www.ids-mannheim.de/cosmas2/projekt/intstats/registrierungen.csv") %>%
add_column(group = "registered users")
- hc <- registrierungen %>%
- hchart("line", hcaes(x=date, y=registered, group=group)) %>%
- hc_add_theme(hc_theme_ids_light()) %>%
- hc_yAxis(title=list(text="")) %>%
- hc_xAxis(title=list(text="")) %>%
- hc_legend(element_blank()) %>%
- hc_size(height=500, width=1260)
- hc
-
+hc <- registrierungen %>%
+ hchart("line", hcaes(x = date, y = registered, group = group)) %>%
+ hc_add_theme(hc_theme_ids_light()) %>%
+ hc_yAxis(title = list(text = "")) %>%
+ hc_xAxis(title = list(text = "")) %>%
+ hc_legend(element_blank()) %>%
+ hc_size(height = 500, width = 1260)
+hc
```
-## Light Verb Constructions
-### with *take* in ICC-English
-
-```{r take-icc, fig.cap="Collocation analysis results for *take* + NOUN in [English Wikipedia](https://korap.ids-mannheim.de/instance/english), using the RKorAPClient [@kupietz_rkorapclient_2020] package."}
-take_ca_icc <-
- KorAPConnection(("https://korap.ids-mannheim.de/instance/english/")) %>%
- collocationAnalysis(
- "focus({[tt/l=take]} [tt/p=NOUN])",
- leftContextSize = 0,
- rightContextSize = 1,
- addExamples = T
- ) %>% head(7)
-
-take_ca_icc %>% show_table()
-```
## Source Code
### Collocation Analysis