R 将excel数据库链接到中的downloadLink

你能帮我把excel数据库链接到我的下载链接吗？因此，每当我在Shining中单击“下载标准库”时，就会自动下载excel数据库。我在下面举了一个简单的例子来说明这个想法。我不知道如何在我的服务器上调整它以使其正常工作

谢谢大家!

library(shiny)

ui <- fluidPage(

    titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        sidebarPanel(

            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            downloadLink("standarddatabase", h4("Download the standard base")),
              ),

        mainPanel(
           plotOutput("distPlot")
        )
    )
)

server <- function(input, output) {

    output$distPlot <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

       hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
}

shinyApp(ui = ui, server = server)

库（闪亮）
ui
库（闪亮）
#install.packages（“xlsx”，dependencies=TRUE）
图书馆（xlsx）
ui您好，您想知道如何生成Excel文件，还是该文件已在固定的可共享链接中可用？如果是后者，你可以在“谢谢朋友”中看到答案，感谢你谈论这个选择，但我真的需要另一种方法。@Jose请看下面我的解决方案，如果它符合你的意愿，请投票并接受它。嗨，朋友，谢谢你的回复。非常好，只要两件简单的事情，如果你可以帮助的话：我想它是在xlsx格式下载。另一个问题是，我想让您制作的下载标准数据库与此站点上的“示例数据文件”类似：。有可能吗？。再次感谢你@Jose我已将其调整为下载到.xlsx格式（见下文）。小心，因为JVM可能会被填满，您可能需要编写一个JVM垃圾收集函数并调用它来清除一些JVM内存，否则导出时可能会出错。从那个闪亮的例子中，我不完全确定你在追求什么。你能试着更详细地解释一下你想要什么吗？如果我的回答符合你的愿望，别忘了投票接受我的回答。你好，朋友，你好吗？你能看到我哥哥的这个问题吗？
library(shiny)
#install.packages("xlsx", dependencies = TRUE)
library(xlsx)
ui <- fluidPage(

    titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        sidebarPanel(

            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            downloadButton("downloadData", "Download Standard Database"),
        ),

        mainPanel(
            plotOutput("distPlot")
        )
    )
)

server <- function(input, output) {

    output$distPlot <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })


    # Reactive value for selected dataset ----
    datasetInput <- reactive({
        switch(faithful,
               "eruptions" = eruptions,
               "waiting" = waiting)
    })

    # Table of selected dataset ----
    output$table <- renderTable({
        faithful
    })

    # Downloadable csv of selected dataset ----
    output$downloadData <- downloadHandler(
        filename = function() {
            paste0(deparse(substitute(faithful)), ".xlsx")
        },
        content = function(file) {
            write.xlsx(as.data.frame(faithful), file, 
                       sheetName = deparse(substitute(faithful)),
                       row.names = FALSE)
        }
    )
}

shinyApp(ui = ui, server = server)