在ShinyDashboard中调整框内DataTable的高度

install.packages("shiny")
install.packages("shinydashboard")

library(shiny)
library(shinydashboard)

# 定义UI界面
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(
        title = "DataTable",
        width = 12,
        height = "500px",  # 设置框的高度
        dataTableOutput("mytable")
      )
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  output$mytable <- renderDataTable({
    # 在这里生成或导入数据，并返回一个数据表
    # 这里只是一个示例，可以根据实际需求进行修改
    iris
  })
}

# 运行应用
shinyApp(ui, server)

shiny::runApp("app.R")