Provide a range of page display options in reactable function

Merck · Apr 8, 2024 · 24e2c91 · 24e2c91
1 parent 530a141
commit 24e2c91
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/ae_forestly.R b/R/ae_forestly.R
@@ -182,6 +182,9 @@ ae_forestly <- function(outdata, filter = c("prop", "n"), width = 1400) {
         highlight = TRUE
       )
     },
+
+    pageSizeOptions = if(nrow(outdata$n)<=100) c(10,25,50,100) else c(10, 25, 50, 100, if(nrow(outdata$n)<=200) 200 else c(200, ceiling(nrow(outdata$n)/100)*100)),
+
     # Default sort variable
     defaultSorted = c("parameter", names(outdata$diff)),
     defaultSortOrder = "desc"