![](/img/trans.png)
[英]How to download a ggplotly plot with R Shiny downloadHandler?
[英]How to implement R Shiny downloadHandler with variable contentType?
根据docs ,downloadHandler应该接受contentType作为字符串。 由于contentType不是常量,因此我尝试传递变量或反应式。 但是,只要contentType严格不是字符串,应用程序就会失败。 如何传递变量值?
我试图function(){}
reactive
, eventReactive
。 令我感到困惑的是,它对于filename = function(){}
。
ui <- fluidPage(
downloadLink("downloadData", "Download")
)
server <- function(input, output) {
# Our dataset
data <- mtcars
output$downloadData <- downloadHandler(
filename = function() {
paste("data-", Sys.Date(), ".csv", sep="")
},
content = function(file) {
write.csv(data, file)
},
contentType = function() {
"text/csv"
}
)
}
shinyApp(ui, server)
在这种情况下,错误消息is.na() applied to non-(list or vector) of type 'closure'
并且文件未正确下载( server error
)。
ui <- fluidPage(
radioButtons("csvs", label = "Type to download", choices = c(".txt", ".csv"), selected = ".csv"),
downloadLink("downloadData", "Download")
)
server <- function(input, output) {
# Our dataset
data <- mtcars
output$downloadData <- downloadHandler(
filename = function() {
paste("data-", Sys.Date(), input$csvs, sep="")
},
content = function(file) {
write.csv(data, file)
}
)
}
shinyApp(ui, server)
一种更简单有效的方法是让用户使用radioButton
选择它
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.