Извлеките входные данные вместе с типом входных данных

Question

У меня есть образец пользовательского интерфейса ниже. У меня есть небольшой кусок кода для извлечения идентификаторов входных и выходных идентификаторов файла ui.R. Но есть ли способ перечислить входные идентификаторы и выходные идентификаторы наряду с там типов. Например, в приведенном ниже ui.R мы имеем numericInput как «n», actionButton как «add», selectInput как «s» и verbatimTextOutput как «sum»

ui.R

library(shiny)


# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Old Faithful Geyser Data"),

  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
       numericInput("n", "Number to add", 5),
                   actionButton("add", "Add"),
       selectInput("s","s",choices = unique(iris$Species))
    ),

    # Show a plot of the generated distribution
    mainPanel(
      verbatimTextOutput("sum", placeholder = TRUE)
    )
  )))

Код для извлечения идентификаторов входных и выходных идентификаторов

library(testthat)
library(shinytest)

app <- ShinyDriver$new(getwd())  ## getwd() is project directory
all_input_and_output_ids <- app$getAllValues() ## extracted from ui.R

Может ли кто-нибудь помочь мне извлечь идентификаторы входных и выходных идентификаторов вместе с их типами?