我想知道如何添加一个示例数据集的地方Choose file
选项在闪亮的界面.我使用的fileInput
选项在ui
上传用户给定的数据在我的闪亮的应用程序.但我喜欢附加一个示例数据集,这将有助于用户演示闪亮的应用程序.
ui <-navbarPage(
tabPanel("Data",
fileInput("file1", h3("Choose the data"), accept = c(".xlsx/xls", ".xls", ".xlsx")),
checkboxInput("sample_data", "Load sample data"),
fileInput("file2", h3("Choose the group information"), accept = c(".xlsx/xls", ".xls", ".xlsx")),
checkboxInput("sample_groups", "Load sample groups"),
actionButton("btn", "Submit"),
helpText("Note: Upload the .xlsx or .xls file")))
server <- function(input,output, session){
inFile1 <- reactive({
if (input$sample_data){
inFile1 <- readxl::read_excel("sample_data.xlsx")
}
else{
inFile1 <- readxl::read_excel(input$file1$datapath)
}
})
inFile2 <- reactive({
if (input$sample_data){
inFile2 <- readxl::read_excel("sample_groups.xlsx")
}
else{
inFile2 <- readxl::read_excel(input$file2$datapath)
}
})
}
shinyApp(ui,server)
我已经使用了上面的代码。但是当我点击checkboxInput
按钮时,示例数据集没有上传。我已经将示例数据集保存在工作目录的www
文件夹中。请建议如何编辑。提前感谢您。
2条答案
按热度按时间zf9nrax11#
这里有一个可能的解决方案。
qaxu7uf22#
下面是一个示例,您可以在应用启动时加载示例数据集:
在此之前,我们首先在根目录中创建一个
my_iris.xlsx
(这是您的示例数据集):与然后在服务器部分,我们使用
if/else
在加载时创建占位符.xlsx: