创建可以输出多种文件类型R Shiny的downloadButton [英] Create downloadButton that can output multiple file types R Shiny
本文介绍了创建可以输出多种文件类型R Shiny的downloadButton的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我为输出CSV的R Shiny应用程序创建了下载按钮.我想在用户界面中添加复选框,以显示输出json,xls和TSV文件的选项,然后输出服务器功能中的相应功能.有什么见解吗?贝娄是与此相关的一些最少代码:
I have created a download button for an R Shiny app that outputs a CSV. I would like to add check boxes to the UI for options to output a json, xls, and TSV file and then the corresponding functions in the server function. Any insights? Bellow is some minimal code related to this:
library(shiny)
set.seed(123)
N<- 500
M<-56
EF<- matrix( rnorm(N*M,mean=23,sd=3), N, M)
WM<- matrix( rnorm(N*M,mean=20,sd=3), N, M)
DP<- matrix( rnorm(N*M,mean=25,sd=3), N, M)
Date <- seq(as.Date("2018-01-01"), as.Date("2018-02-25"), by="days")
Date <- as.POSIXct(Date, format = "%Y-%m-%d %H:%M")
ui <- fluidPage(
titlePanel(code(strong("Measures"), style = "color:black")),
sidebarLayout(
sidebarPanel(
strong("Tools:"),
selectInput("Test",
label = "Choose a measure to display",
choices = c("EF",
"WM",
"DP"
),
selected = "EF"),
downloadButton("downloadData", "Download")),
mainPanel(
code(strong("Output Data"))
))
)
server <- function(input, output) {
output$downloadData <- downloadHandler(
filename = function() {
paste(input$dataset, "Table.csv", sep = ",")
},
content = function(file) {
write.csv(x, file, row.names = FALSE)
}
)
}
# Run that shit ----
shinyApp(ui = ui, server = server)
推荐答案
不是最优雅的方法,但这是一个选择.我创建了一个模拟示例-由于示例中未定义 x
(您要下载的内容),因此我无法使用您的代码.
Not the most elegant, but here's an option. I created a mock example -- I couldn't use your code since x
(what you're downloading) isn't defined in your example.
library(shiny)
library(RJSONIO)
library(xlsx)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("dataset",
label = "Choose dataset",
choices = c("iris", "cars")),
radioButtons("downloadType", "Download Type",
choices = c("CSV" = ".csv",
"JSON" = ".json",
"XLS" = ".xls",
"TSV" = ".tsv"),
inline = TRUE),
downloadButton("downloadData", "Download")
),
mainPanel()
)
)
server <- function(input, output) {
datasetInput <- reactive({
switch(input$dataset,
"iris" = iris,
"cars" = cars)
})
output$downloadData <- downloadHandler(
filename = function() {
paste0(input$dataset, "_Table", input$downloadType)
},
content = function(file) {
if(input$downloadType == ".csv") {
write.csv(datasetInput(), file, row.names = FALSE)
} else if(input$downloadType == ".json") {
exportJSON <- toJSON(datasetInput())
write(exportJSON, file)
} else if(input$downloadType == ".xls") {
write.xlsx(datasetInput(), file,
sheetName = "Sheet1", row.names = FALSE)
} else if(input$downloadType == ".tsv") {
write.table(datasetInput(), file, quote = FALSE,
sep='\t', row.names = FALSE)
}
}
)
}
shinyApp(ui = ui, server = server)
这篇关于创建可以输出多种文件类型R Shiny的downloadButton的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文