R Shiny获取动态用户输入并生成向量传入自定义函数的问题

代码问题排查 #

• 不能在UI代码段中定义变量拼接用户输入。UI仅负责渲染界面组件，所有动态输入的取值都需要在server的响应式环境中从input对象获取，原代码中input$custom_sonnet属于不存在的字段，无法拿到拼接后的向量。同时UI组件容器fluidPage内不允许写普通变量赋值逻辑，会直接触发语法报错。
• 自定义函数sonnet_print_vector中使用print()输出结果，该函数默认返回值为NULL，不会把生成的诗句数据框作为返回值传递给后续逻辑，需要把print(sonnet_list)修改为return(sonnet_list)。
• 诗句数据框属于结构化对象，不能直接用paste()拼接为纯文本输出，需要提取对应列的内容后再做拼接。
• 14个重复的numericInput写法冗余，可以用循环批量生成，减少重复代码。

修正后完整可运行代码 #

library(shiny)
library(dplyr)

# 请提前加载你的sonnets数据集到当前运行环境

# 优化后的自定义函数
sonnet_print_vector <- function(user_vector){
  sonnet_list <- NULL
  for (i in seq_along(user_vector)){
    next_line <- filter(sonnets, sonnet == user_vector[i], line == i) %>%
      select(text)
    sonnet_list <- bind_rows(sonnet_list, next_line)
  }
  return(sonnet_list)
}

# 简化后的UI界面
ui <- fluidPage(
  # 批量生成14个输入框
  lapply(1:14, function(num) {
    numericInput(
      inputId = paste0("row", num),
      label = paste0("第", num, "行要显示哪首十四行诗的内容？"),
      value = 1
    )
  }),
  verbatimTextOutput("q")
)

server <- function(input, output){
  output$q <- renderPrint({
    # 拼接用户输入的14个值为向量
    custom_sonnet <- sapply(1:14, function(num) input[[paste0("row", num)]])
    
    cat("自定义十四行诗拼接结果如下：\n\n")
    sonnet_result <- sonnet_print_vector(custom_sonnet)
    # 按行输出诗句内容
    cat(paste(sonnet_result$text, collapse = "\n"))
  })
}

shinyApp(ui = ui, server = server)

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