R - Flextable和分页（或滚动条）

要在R中使用Flextable和分页（或滚动条），可以使用flextable和shiny包的组合。

首先，确保已安装flextable和shiny包：

install.packages("flextable")
install.packages("shiny")

接下来，创建一个app.R文件，其中包含以下代码：

library(shiny)
library(flextable)

# 创建一个带有分页（或滚动条）的Flextable
create_flextable <- function(num_rows) {
  df <- data.frame(
    ID = 1:num_rows,
    Name = sample(LETTERS, num_rows),
    Value = rnorm(num_rows)
  )
  
  table <- flextable(df)
  table <- autofit(table)
  
  return(table)
}

# 定义Shiny应用程序
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("num_rows", "行数", min = 1, max = 100, value = 10)
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("表格", flextableOutput("table"))
      )
    )
  )
)

server <- function(input, output) {
  # 渲染Flextable
  output$table <- renderFlextable({
    create_flextable(input$num_rows)
  })
}

shinyApp(ui = ui, server = server)

运行该应用程序，将会看到一个带有滑动条的界面。通过滑动滑块，可以选择要显示的行数。然后，根据选择的行数，将显示一个带有相应行数的Flextable。

注意：此示例中的数据集是随机生成的示例数据。您可以根据自己的数据集进行调整。