我想将每页可反应的行数限制为 10 到 5。
这是一个可重现的示例
set.seed(250)
df <- tibble(x = sample(x = 1:20))
reactable(df)
Run Code Online (Sandbox Code Playgroud)
现在,当您运行此代码时,会出现两页,每页 10 行。我想要四页,每页 5 行。
您可以使用参数更改默认页面大小 (10) defaultPageSize( https://glin.github.io/reactable/articles/examples.html#pagination )
library(reactable)
set.seed(250)
df <- dplyr::tibble(x = sample(x = 1:20))
reactable(df, defaultPageSize = 5)
Run Code Online (Sandbox Code Playgroud)