如何在R Shiny中获取renderUI生成的HTML文本域的输入值

核心逻辑：Shiny 仅会自动绑定官方原生输入组件的输入事件，自定义HTML生成的输入控件需要主动通过JS将值同步到Shiny的input对象。

最简实现方案 #

直接给你手写的textarea添加oninput事件监听，调用Shiny内置的Shiny.setInputValue()方法即可完成值同步，修改后的完整可运行代码如下：

library(shiny)
ui <- fluidPage(
  htmlOutput("mytextbox"),
  # 测试用：展示获取到的输入值
  verbatimTextOutput("input_val")
)
server <- function(input, output){
  output$mytextbox <- renderUI({
    # 1. 移除了多余的<html>根标签，renderUI仅需返回页面片段即可
    # 2. 新增oninput事件，输入时实时把值同步到input$test
    HTML('<textarea id="test" rows="3" cols="40" oninput="Shiny.setInputValue(\'test\', this.value)"></textarea>')
  })
  
  # 测试：打印获取到的输入值，验证是否存入input对象
  output$input_val <- renderPrint({
    input$test
  })
}
shinyApp(ui, server)

运行后在文本域输入内容，下方会实时展示你输入的内容，说明input$test已经成功拿到了用户输入值。

复杂场景适配方案 #

如果你的业务有更多自定义JS逻辑，不想把事件写在HTML标签内，也可以单独写监听脚本实现绑定，示例如下：

output$mytextbox <- renderUI({
  tagList(
    HTML('<textarea id="test" rows="3" cols="40"></textarea>'),
    tags$script(
      'document.getElementById("test").addEventListener("input", function(){
        Shiny.setInputValue("test", this.value);
      })'
    )
  )
})

该写法和内嵌事件效果完全一致，更适合需要添加多类交互逻辑的场景。

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