Shiny R技术问题：如何保存DataTable中复选框输入列表？

我来帮你实现点击按钮后保存选中爱好的功能，把选中的选项存入DataFrame的一列，还能以用户名为行名追加到CSV文件里。下面是完整的代码和关键细节说明：

完整代码示例 #

library(shiny)
library(DT)

# 定义爱好选项和问题
answer_options <- c("reading", "swimming", "cooking", "hiking", "binge-watching series", "other")
question2 <- "What hobbies do you have?"

ui <- fluidPage(
  # 用户名输入框
  textInput("username", "Enter your username:"),
  h3(question2),
  # 展示带复选框的爱好表格
  DTOutput("hobby_table"),
  # 保存按钮
  actionButton("save_btn", "Save Your Hobbies"),
  # 保存状态提示
  verbatimTextOutput("save_status")
)

server <- function(input, output, session) {
  # 生成带复选框的DT表格
  output$hobby_table <- renderDT({
    # 创建包含爱好和对应复选框的数据框
    hobby_df <- data.frame(
      Hobby = answer_options,
      Select = sapply(answer_options, function(x) {
        # 给每个复选框设置唯一ID，方便后续获取状态
        as.character(checkboxInput(paste0("hobby_", x), label = NULL, value = FALSE))
      })
    )
    
    datatable(hobby_df, 
              escape = FALSE,  # 必须设置为FALSE，否则复选框会被转义成文本
              options = list(
                dom = "t",  # 只显示表格主体，去掉搜索、分页等多余控件
                ordering = FALSE,  # 禁止排序
                columnDefs = list(
                  list(width = "80%", targets = 0),  # 调整爱好列宽度
                  list(width = "20%", targets = 1)   # 调整复选框列宽度
                )
              ))
  })
  
  # 监听保存按钮的点击事件
  observeEvent(input$save_btn, {
    # 先检查用户名是否输入，没输入的话不执行后续逻辑
    req(input$username)
    
    # 收集所有选中的爱好
    selected_hobbies <- c()
    for(hobby in answer_options) {
      # 根据每个爱好的唯一ID获取复选框状态
      if(isTruthy(input[[paste0("hobby_", hobby)]])) {
        selected_hobbies <- c(selected_hobbies, hobby)
      }
    }
    
    # 处理用户没选任何爱好的情况
    if(length(selected_hobbies) == 0) {
      selected_hobbies <- "No hobbies selected"
    }
    
    # 构造要保存的DataFrame，行名设置为用户名
    save_df <- data.frame(
      Hobbies = paste(selected_hobbies, collapse = ", "),
      row.names = input$username
    )
    
    # 追加到CSV文件
    if(file.exists("hobby_responses.csv")) {
      # 文件已存在，追加数据时不重复写表头
      write.table(
        save_df, 
        "hobby_responses.csv", 
        sep = ",", 
        append = TRUE, 
        col.names = FALSE, 
        row.names = TRUE
      )
    } else {
      # 文件不存在，新建文件并写入表头
      write.table(
        save_df, 
        "hobby_responses.csv", 
        sep = ",", 
        append = FALSE, 
        col.names = TRUE, 
        row.names = TRUE
      )
    }
    
    # 显示保存成功的提示信息
    output$save_status <- renderPrint({
      cat("Successfully saved your hobbies!\nYour selected hobbies:", paste(selected_hobbies, collapse = ", "))
    })
  })
}

shinyApp(ui, server)

关键细节说明 #

• 复选框的唯一ID：每个爱好对应一个唯一的复选框ID（比如hobby_reading），这样能精准获取每个选项的选中状态，避免混淆。
• CSV追加逻辑：判断文件是否存在，存在就追加数据且不写表头，不存在就新建文件并写入表头，保证CSV格式始终规范。
• 用户输入校验：用req(input$username)确保用户必须输入用户名才允许保存，避免出现空行名的情况。
• 空选择处理：如果用户没选任何爱好，会自动填充No hobbies selected，避免DataFrame出现空值。

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