在shiny R中创建基线比较数据-复制输入的数据帧

install.packages("shiny")

library(shiny)

# 定义UI界面
ui <- fluidPage(
  titlePanel("基线比较数据"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "选择数据文件", accept = c(".csv", ".xlsx"))
    ),
    mainPanel(
      tableOutput("data_table")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  
  # 读取上传的数据文件
  data <- reactive({
    req(input$file)
    inFile <- input$file
    if (grepl(".csv$", inFile$name)) {
      df <- read.csv(inFile$datapath, header = TRUE)
    } else if (grepl(".xlsx$", inFile$name)) {
      df <- read.xlsx(inFile$datapath, header = TRUE)
    }
    return(df)
  })
  
  # 显示数据表格
  output$data_table <- renderTable({
    data()
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

shiny::runApp("app.R")