Shiny应用实现点击按钮将输入内容导出至指定文件夹文本文件

要实现点击「Export file」按钮将输入内容导出到项目目录下的outputtext/文件夹，只需在server端添加按钮监听逻辑，同时确保目标文件夹存在。以下是修改后的完整可运行代码：

require(shiny)

runApp(list(ui = pageWithSidebar(
  headerPanel("Creating file"), # 修正原拼写错误：friLe → file
  sidebarPanel(
    selectInput("var",
                label = "Drops",
                choices = c("Op1", "Op2", "Op3", "Op4"),
                selected = "Op1"),
    sliderInput("range",
                label = "Slide to select",
                min = 0, max = 100, value = c(0, 100)),
    actionButton("button", "Export file")
  ),
  mainPanel(htmlOutput("text")
  )
),

server = function(input, output) {
  output$text <- renderUI({
    str1 <- paste("You have selected:", input$var)
    str2 <- paste("The range that goes between:",
                  input$range[1], "to", input$range[2])
    HTML(paste(str1, str2, sep = '<br/>'))
  })
  
  # 添加导出逻辑
  observeEvent(input$button, {
    # 确保outputtext文件夹存在，不存在则创建
    dir.create("outputtext", recursive = TRUE, showWarnings = FALSE)
    # 整理要导出的内容
    export_content <- c(
      paste("Selected option:", input$var),
      paste("Range:", input$range[1], "to", input$range[2]),
      paste("Export time:", Sys.time()) # 可选：添加导出时间戳
    )
    # 写入到指定文件
    writeLines(export_content, con = "outputtext/exported_content.txt")
    # 可选：弹出提示告知导出完成
    showNotification("文件已成功导出到outputtext文件夹！", type = "message")
  })
  
}

)
)

关键部分说明： #

• 文件夹创建：dir.create("outputtext", recursive = TRUE, showWarnings = FALSE)会自动创建outputtext文件夹，即使父目录不存在也能递归创建，且不会因文件夹已存在而抛出警告。
• 按钮监听：observeEvent(input$button, {...})专门监听按钮点击事件，每次点击就执行内部的导出操作。
• 内容写入：用writeLines将整理好的文本内容写入到outputtext/exported_content.txt，如果需要保留历史版本，可以把文件名改为带时间戳的格式，比如：

  file_name <- paste0("outputtext/exported_content_", gsub("[: -]", "_", Sys.time()), ".txt")
  writeLines(export_content, con = file_name)
  

  这样每次导出的文件都会带上唯一的时间戳，不会覆盖旧文件。

内容的提问来源于stack exchange，提问作者JontroPothon