テキストをダウンロードしてShinyでtxtファイルを生成

Question

私はアプリに表示されるテキストを.txtファイルでダウンロードする方法を探しています。ここに私の試みは残念ながらありません成功し、次のとおりです。

library(shiny) 

ui <- fluidPage(

    sidebarPanel(
     h4("Title"), 
     p("Subtitle", 
     br(),"Line1", 
     br(),"Line2", 
     br(),"Line3"), 

     downloadButton("Download Metadata", label = "Download") 
    ) 
) 

server <- function(input, output, session){ 

    output$downlaodData <- downloadHandler(
     filename = function(){ 
     paste("data-", Sys.Date(), ".txt", sep = "") 
     }, 
     content = function(file) { 
     write.txt(data, file) 
     } 
    ) 

は、あなたがそのようなあなたのページに表示されるテキストを書くことができないあなたの助け

Answer 1

、ありがとうございました。データまたはユーザ入力として保存されたテキストをダウンロードすることができます。あなたのコード内のいくつかの問題もあります。関数ではありませんあなたは

write.txtをダウンロードすべきかを指定していないので、

• データが定義されていないが、代わりに
• downloadbuttonを使用してはwrite.table downloadHandlerは同じIDを持つ必要があります。

---

の作業例

library(shiny) 

text=c("Line1", "Line2","Line3") 

ui <- fluidPage(

    sidebarPanel(
    h4("Title"), 
    p("Subtitle", 
     br(),text[1], 
     br(),text[2], 
     br(),text[3]), 

    downloadButton("download_button", label = "Download") 
) 
) 

server <- function(input, output, session){ 

    output$download_button <- downloadHandler(
    filename = function(){ 
     paste("data-", Sys.Date(), ".txt", sep = "") 
    }, 
    content = function(file) { 
     write.table(paste(text,collapse=", "), file,col.names=FALSE) 
    } 
) 
} 

shinyApp(ui,server)