在R shiny中保存模式弹出窗口的内容

actionButton("saveBtn", "保存")

modalDialog(
  fluidRow(
    # 内容输入框
    textAreaInput("content", "内容", rows = 5),
    # 保存按钮
    actionButton("saveModalBtn", "保存")
  )
)

observeEvent(input$saveModalBtn, {
  # 获取保存的内容
  content <- input$content
  
  # 执行保存操作
  # 这里可以根据具体需求选择将内容保存到数据库、文件系统或其他存储介质中
})

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(width = 6,
           align = "center",
           # 触发保存的按钮
           actionButton("saveBtn", "保存")
    )
  )
)

server <- function(input, output) {
  # 监听保存按钮的点击事件
  observeEvent(input$saveBtn, {
    showModal(
      modalDialog(
        fluidRow(
          # 内容输入框
          textAreaInput("content", "内容", rows = 5),
          # 保存按钮
          actionButton("saveModalBtn", "保存")
        )
      )
    )
  })
  
  # 监听模态弹出窗口中保存按钮的点击事件
  observeEvent(input$saveModalBtn, {
    # 获取保存的内容
    content <- input$content
    
    # 执行保存操作
    # 这里可以根据具体需求选择将内容保存到数据库、文件系统或其他存储介质中
    
    # 关闭模态弹出窗口
    removeModal()
  })
}

shinyApp(ui, server)