commit d52056afe7fb7a8669d84f3fd650dcd46cbcbe93
author Marc Kupietz <kupietz@ids-mannheim.de> Mon Jun 26 20:38:03 2023 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Mon Jun 26 20:38:03 2023 +0200
tree d9fdb7c75f4d9d6531242b07c6b103be8685aac9
parent 4e6311ef07f20cc1ff65c32b1b0d467fe05d5c42

In the full report show more data

Change-Id: I062f0d06aa3328200e81b26918cc272bc5784eef

R/report.Rmd

diff --git a/R/report.Rmd b/R/report.Rmd
index 363916c..4804115 100644
--- a/R/report.Rmd
+++ b/R/report.Rmd
@@ -112,20 +112,21 @@
 
 ```{r take_wpe, echo=TRUE}
 if (file.exists("../data/take_ca_wpe")) {
-  take_ca_wpe <- readRDS("../data/take_ca_wpe")
+  take_ca_wpe_i <- readRDS("../data/take_ca_wpe")
 } else {
 wpe <- new("KorAPConnection", "https://korap.ids-mannheim.de/instance/english", verbose=T)
-take_ca_wpe <-
+take_ca_wpe_i <-
   collocationAnalysis(
     wpe,
     "focus({[tt/l=take]} [tt/p=NN])",
     leftContextSize = 0,
     rightContextSize = 1,
+    ignoreCollocateCase = TRUE,
     minOccur = 5,
     addExamples = T
   )
 }
-take_ca_wpe %>% show_table()
+take_ca_wpe_i %>% show_table(max=10000)
 ```
 
 ## German: *nehmen*
@@ -147,7 +148,7 @@
 
 ```{r nehmen_dereko}
 nehmen_ca_dereko <- readRDS("../data/ca_nehmen_dereko_examples")
-nehmen_ca_dereko %>% show_table()
+nehmen_ca_dereko %>% show__full_table()
 ```
 
 ## Norwegian: *ta*

data/take_ca_wpe

diff --git a/data/take_ca_wpe b/data/take_ca_wpe
index 11e97b6..e3a970a 100644
--- a/data/take_ca_wpe
+++ b/data/take_ca_wpe
Binary files differ