,可以通过以下步骤实现:
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")
这样,你就成功在shiny R中创建了一个基线比较数据的应用程序,用户可以通过上传数据文件来复制输入的数据帧,并在应用程序中查看数据。
领取专属 10元无门槛券
手把手带您无忧上云