如何下载普通（非ggplot）图和＆amp;文本到闪亮的文件

Question

我正在尝试下载到文件：一个非ggplot2情节＆amp;另一个字符串/向量，但它不保存目录中的两个文件。

症状： 1）当我单击UI中的plotdownload按钮时，它会打开一个带有临时文件名的pdf，“rstudio-xxx.pdf”显示所需的绘图，但它不会自动保存文件。 2）当我单击UI中的datadownload按钮时，它允许我使用正确的文件名浏览本地文件夹作为默认值，但是在单击“保存”按钮后，它并不真正将文件保存在所选目录中

代码

**ui.R**

 wellPanel(
     downloadButton('downloadPlot', 'Download Plot'),
     downloadButton('downloadData', 'Download File'),
     br()
 )


**server.R**

plotInput <- function() {
    if(input$save == 0)
        return()

    plotdata() ** function call to plot **
}
output$downloadPlot <- downloadHandler(
    filename = function() { paste0("test.pdf") },
    content = function(file) {
        pdf(file,width=12,height=6)
        print(plotInput())
        dev.off()
    })        

output$downloadData <- downloadHandler(
    filename = function() { "test.txt") },
    content = function(file){
        write.table(c(1:10),file)
    }
)

...

代码结束

请告诉我我做错了什么。感谢您的帮助！

感谢