收集R中的所有输入标签

受这个答案的启发[我可以得到所有的输入值。但是，我还需要每个闪亮输入的标签

有没有办法让每个输入的所有标签都显示出来

在R代码下面：

library(shiny)
ui<- fluidPage(
  titlePanel("Dynamically generated user interface components"),
  fluidRow(

    column(3, 
      selectInput("cnt_id", "Country",
                  c("USA", "Cananada", "Mexico"),
                  ),
      selectInput('cod_id', 'Code', c(Choose='', c("c12","c13","c14")), selectize=FALSE),
      uiOutput("rtxt")

      ),
    column(3,
           #tags$p("Pais"),
           #verbatimTextOutput("d1"),
           #tags$p("Code"),
           #verbatimTextOutput("d2"),
           br(),
           tableOutput('show_inputs')
    )
  )
)

server <- function(input, output) {

  output$rtxt<- renderUI({
    textInput('text_id', label = 'Type comment')
  }) 


  #Get inputs
  AllInputs <- reactive({
    x <- reactiveValuesToList(input)
    data.frame(
      names = names(x),
      values = unlist(x, use.names = FALSE)
    )
  })
  #display inputs
  output$show_inputs <- renderTable({
    AllInputs()
  })

}
shinyApp(ui = ui, server = server)

如果有必要，答案还可以包括

JavaScript

---

“提前感谢”

看起来你已经让它工作了。不清楚你需要什么，你想要没有服务器端代码的相同功能吗？@Sada93在应用程序中，表

show_inputs

只显示输入的

id

和输入的

值，而不显示输入的
标签
（它们是
国家
，
选项
，
类型注释
）。
+--------------+----------------+
| Input_Label  |    Input_Value |
+--------------+----------------+
| Country      |    USA         |
| Code         |    c12         |
| Type comment |  some comment  |
+--------------+----------------+