commit 6626400105e5018ed8385a65d515d8cd5705b944
author Marc K <morckx@gmail.com> Tue Jun 27 13:29:38 2023 +0200
committer Marc K <morckx@gmail.com> Tue Jun 27 13:29:38 2023 +0200
tree 1ecb57d64a2ee526b7cecb2948c425c317521053
parent 4853d6a131bfb46cac4f251589971ac97f10944e

Add CoRoLa-example

Change-Id: Ia7d9aa9b4dffac58b19ea4b90c5e1938b0a1f738

common.R

diff --git a/common.R b/common.R
index 7b3fca1..dfb36cf 100644
--- a/common.R
+++ b/common.R
@@ -43,11 +43,10 @@
     formatRound(columns=~logDice + pmi + ll, digits=2)
 }
 
-show_simple_table <- function(df) {
+show_simple_table <- function(df, pageLength = 20) {
   df %>%
     mutate(Collocate=sprintf('<a href="%s">%s</a>', webUIRequestUrl, collocate)) %>%
     select(Collocate, logDice, pmi, ll) %>%
-    head(50) %>%
-    datatable(options = list(pageLength = 20), escape = F) %>%
+    datatable(options = list(pageLength = pageLength), escape = F) %>%
     formatRound(columns=~logDice + pmi + ll, digits=2)
 }