可以將數據存儲爲在反應中表達的數據幀,並使用downloadbutton和downloadhandler下載數據。
server.R
library(shiny)
shinyServer(function(input, output, session) {
dataReactive <- reactive({
data.frame(text = c(input$text1, input$text2, input$text3))
})
output$exampleTable <- DT::renderDataTable({
dataReactive()
})
output$downloadData <- downloadHandler(
filename = function() {
paste("dataset-", Sys.Date(), ".csv", sep="")
},
content = function(file) {
write.csv(dataReactive(), file)
})
})
ui.R:
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
textInput("text1","Text 1:",value="example text 1"),
textInput("text2","Text 2:",value="example text 2"),
textInput("text3","Text 3:",value="example text 3"),
downloadButton('downloadData', 'Download data')
),
mainPanel(
DT::dataTableOutput("exampleTable")
)
)
))
希望這有助於!
獲取所有輸入字段並構造csv? –
是@RomanLuštrik,但我不知道該怎麼處理 –