R是否从renderUI和HTML中获取值？

如果我在我的shiny应用程序中通过renderUI从HTML生成了一个文本区域，我如何从shiny访问这里的文本

最小可复制示例（如何将“mytextbox”中键入的值输入到输入中？）

库（闪亮）
ui由于您为元素提供了“test”的
id
，因此可以检查
input$test
值

ui <- fluidPage(
  htmlOutput("mytextbox"),
  textOutput("value")
)
server <- function(input, output){
  output$mytextbox <- renderUI({
    HTML('<textarea id="test" rows="3" cols="40"></textarea>')
  })
  output$value <- renderText(input$test)
}
shinyApp(ui, server)

ui您可以呈现另一个ui，并将“test”的内容放入其中。正如@MrFlick指出的，要访问textarea元素的内容，需要输入$test

library(shiny)
ui <- fluidPage(
    mainPanel(
    htmlOutput("mytextbox"),
    uiOutput('inputs') 
    )
)
server <- function(input, output){
    
    output$mytextbox <- renderUI({
        HTML('<textarea id="test" rows="3" cols="40"></textarea>')
    })
    #render another UI
    output$inputs <- renderUI({ 
        tagList(textInput('text_test', '', input$test),
                radioButtons('radio_bttn', 'First choice is the texarea content',
                             choices = c(input$test, 'another option')))
    })
}
shinyApp(ui, server)

库（闪亮）
谢谢你！看起来我必须在html文本框中实际键入一些内容才能识别input$test，当html文本框通过另一个javascript函数填充时，input$test显示为空白有什么原因吗？我不清楚您到底在做什么。需要一些东西来触发更改事件，以便闪亮的js代码能够响应它。也许更清楚地以新问题的形式发布会更好。谢谢！看起来我必须在html文本框中实际键入一些内容才能识别input$test，当html文本框通过另一个javascript函数填充时，input$test显示为空白有什么原因吗？
library(shiny)
ui <- fluidPage(
    mainPanel(
    htmlOutput("mytextbox"),
    uiOutput('inputs') 
    )
)
server <- function(input, output){
    
    output$mytextbox <- renderUI({
        HTML('<textarea id="test" rows="3" cols="40"></textarea>')
    })
    #render another UI
    output$inputs <- renderUI({ 
        tagList(textInput('text_test', '', input$test),
                radioButtons('radio_bttn', 'First choice is the texarea content',
                             choices = c(input$test, 'another option')))
    })
}
shinyApp(ui, server)