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)
 }