R Shiny颜色选择器取值异常：为何input[['titleColorChart']]返回空值？

你的代码存在几处关键错误，导致input[['titleColorChart']]返回空值，以下是问题分析和修正后的完整方案：

关键问题根源 #

• Shiny的input对象是只读的，服务器端直接赋值input[[nameOfDropDownList]] <- ...完全无效
• JS代码中Shiny.setInputValue参数错误，多了不必要的#符号；同时Shiny.onInputChange用旧值覆盖了正确的颜色选择结果
• 保存按钮事件误用updateColourInput，但目标输入是普通文本框，应使用updateTextInput
• onevent传递的参数逻辑混乱，导致JS端接收到无效值

修正后的完整代码 #

library(shiny)
library(shinyjs)
library(stringr)

jsCode <- "
shinyjs.updateColorTagValue= function(params){ 
  var colorString = $('#' + params[0] + '1').val();  
  $('#' + params[0]).val(colorString); // 同步文本框显示值
  Shiny.setInputValue(params[0], colorString); // 正确更新Shiny input对象的值
}
" 

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode, functions = c("updateColorTagValue")),
  div(
    tags$input(
      id = str_c("titleColorChart","1"),
      type = "color",
      value = "#ffffff", // 设置初始默认颜色
      class = "form-control input-xs",
      style = "width: 20px;padding: 0;border: none;"
    ),
    tags$input(
      id = str_c("titleColorChart"),
      type = "text",
      value = "#ffffff", // 同步初始值
      class = "form-control input-xs",
      style = "padding: 0;border: none;"
    )
  ),
  tags$button(
    id = "save",
    type = "button",
    class = "tool-button",
    span("Save")
  )
)

server <- function(input, output, session) {
  nameOfDropDownList <- "titleColorChart"
  
  # 监听颜色选择器变化，调用JS同步值到input对象
  onevent("change", str_c(nameOfDropDownList,"1"), 
          js$updateColorTagValue(nameOfDropDownList))
  
  # 点击保存按钮时弹出当前颜色值
  onclick("save", alert(input[["titleColorChart"]]))
}

shinyApp(ui, server)

核心修正说明 #

1. 移除无效操作：删掉服务器端直接修改input对象的代码，Shiny仅允许通过JS的Shiny.setInputValue或R端的update*Input系列函数更新input值
2. 简化JS逻辑：去掉冗余的JSON序列化步骤，直接获取颜色选择器的值；修正Shiny.setInputValue的参数格式，不需要加#前缀
3. 同步初始值：给颜色选择器和文本框设置相同的初始默认值，避免初始状态为空
4. 简化事件监听：仅保留必要的颜色选择变化监听，确保input$titleColorChart始终与选择器值同步

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