Question

我想在用户点击按钮时将数据表输出写入csv。我在r中编写了以下代码以获取下载功能

ui.r

tabItem(tabName = "output",
          h2("Resource Predictions"),
          fluidRow(
              box(
                width = 3, status = "info",solidHeader = TRUE,
                title = "QC Assignment",
                tableOutput("qc_assign")
            ),
              box(
                width = 9, status = "info",solidHeader = TRUE,
                title = "ITV Assignment",
                DT::dataTableOutput("itv_seq")
            )),

          fluidRow(
            downloadButton("downloadtable", "Download ITV assignment file",style="display: block; margin: 0 auto; width: 230px;color: blue;"))

    ),

我的server.r文件如下所示

qc_assignment <- reactive({
 . 
 .
 .
list(ITV_assign = itv_assign)

})


output$downloadtable <- downloadHandler(
itv_seq <- qc_assignment()[['ITV_assign']],
filename = function() {paste("ITV_assignement_",input$ves_arrv_date,".csv",sep="")},
content = function(file){ write.csv(itv_seq, file) }
)

当我点击Download ITV assignment file按钮时，文件浏览器会打开，并保存名称为downloadtable但没有.csv扩展名的文件。

我做错了什么？

Answer 1

itv_seq <-指定了参数：

output$downloadtable <- downloadHandler( filename = function() { paste("ITV_assignement_",input$ves_arrv_date,".csv",sep="") }, content = function(file){ itv_seq <- qc_assignment()[['ITV_assign']], write.csv(itv_seq, file) } )

我猜R正试图将你的contentType = 'text/csv' - 作业与其中一个重新考虑的论点相匹配。这有效：

(Get-AzureRmSqlDatabase -DatabaseName jasontest1 -ServerName jasontest -ResourceGroupName jasontest).resourceid

您可以添加参数PS C:\Users> (Get-AzureRmSqlDatabase -DatabaseName jasontest1 -ServerName jasontest -ResourceGroupName jasontest).resourceid /subscriptions/5384xxxx-xxxx-xxxx-xxxx-xxxxe29axxxx/resourceGroups/jasontest/providers/Microsoft.Sql/servers/jasontest/databases/jasontest1，但这是从您提供的扩展程序中猜到的。

downloadButton函数在闪亮的仪表板中无法正常工作

1 个答案: