在r闪亮应用程序开始时上传csv文件(准占位符文件)

Question

有了这段代码，我可以在我闪亮的应用程序中上传一个csv文件。

library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose CSV File", accept = ".csv"),
checkboxInput("header", "Header", TRUE)
),
mainPanel(
tableOutput("contents")
)
)
)
server <- function(input, output) {
output$contents <- renderTable({
file <- input$file1
ext <- tools::file_ext(file$datapath)

req(file)
validate(need(ext == "csv", "Please upload a csv file"))

read.csv(file$datapath, header = input$header)
})
}
shinyApp(ui, server)

我想在我闪亮的应用程序启动时自动加载一个占位符csv文件，比如df.csv

我认为这是可能的，还是我必须重新思考我的策略？

Answer 1

在server中，我们可以在加载时使用if/else创建占位符.csv

server <- function(input, output) {
output$contents <- renderTable({

if(is.null(input$file1)) {

dat <- read.csv(file.path(getwd(), "df.csv"))
} else {
file <- input$file1
ext <- tools::file_ext(file$datapath)

req(file)
validate(need(ext == "csv", "Please upload a csv file"))

dat <- read.csv(file$datapath, header = input$header)
}

dat

})
}
shinyApp(ui, server)