收集 Shiny R 中的所有输入标签

受到这个答案的启发[收集整个 Shiny 应用程序中的所有用户输入 https://stackoverflow.com/questions/41031584/collect-all-user-inputs-throughout-the-shiny-app%5D%5B1%5D我可以获得所有输入值。但是，我还想要每个闪亮输入的标签。

有什么方法可以获取 Shiny 中每个输入的所有标签吗？

R-Shiny 代码下方：

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)

理想的输出将是这样的表格：

+--------------+----------------+
| Input_Label  |    Input_Value |
+--------------+----------------+
| Country      |    USA         |
| Code         |    c12         |
| Type comment |  some comment  |
+--------------+----------------+

答案还可以包括JavaScript，以防万一有必要。

提前致谢