Replace ICC with English wikipedia in example
Change-Id: I4642f77686461599a0622057b74664d5b009880c
diff --git a/examples/ids.Rmd b/examples/ids.Rmd
index f9693ce..77932fb 100644
--- a/examples/ids.Rmd
+++ b/examples/ids.Rmd
@@ -89,14 +89,13 @@
## Light Verb Constructions
### with *take* in ICC-English
-```{r take-icc, fig.cap="Collocation analysis results for *take* + NOUN in [ICC-ENG](https://korap.ids-mannheim.de/instance/icc), using the RKorAPClient [@kupietz_rkorapclient_2020] package."}
+```{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(
- icc_con("eng"),
- "focus({[ud/l=take]} [ud/p=NOUN])",
+ "focus({[tt/l=take]} [tt/p=NOUN])",
leftContextSize = 0,
rightContextSize = 1,
- minOccur = 2,
addExamples = T
) %>% head(7)
@@ -122,8 +121,7 @@
```R
df %>%
- mutate(Collocate=sprintf('<a href="%s">%s</a>',
- webUIRequestUrl, collocate)) %>%
+ mutate(Collocate=sprintf('<a href="%s">%s</a>', webUIRequestUrl, collocate)) %>%
mutate(example=str_replace(example,
".*(\\W+\\w+\\W+\\w+\\W+<mark.*/mark>.*)", "\\1")) %>%
mutate(example=str_replace(example,