Shiny 选择输入列表，然后在列表中输入数字输入值

是否可以将selectinput和NUMERICIINPUT链接到SHINK中？我想让应用程序的用户从selectInput中选择一些内容，然后为该特定选择输入一个值。列表中的每个变量都有一个数字输入要输入。最终，这些值将被注册到数据表中。选择更多变量只需要单击一个按钮。我对shiny的了解有限，这是我所能收集到的全部信息，请告知

ui <- fluidPage(
    selectInput("solvent", "Choose a solvent:",
                list(`Solvent` = c("ETOH", "SALINE", "DW5",'CREMOPHOR','WATER','DMSO','2% KLUCEL (pH=4 /w HCl)')
    )),
    actionButton('add','Add'),
    numericInput('vol_ETOH','Vol ETOH (ml)',0),
    numericInput('vol_SALINE','Vol SALINE (ml)',0),
    numericInput('vol_DW5','Vol DW5 (ml)',0),
    numericInput('vol_CREMOPHOR','Vol CREMOPHOR (ml)',0),
    numericInput('vol_WATER','Vol WATER (ml)',0),
    numericInput('vol_DMSO','Vol DMSO (ml)',0),
    numericInput('vol_KLUCEL','Vol 2% KLUCEL (ml)',0),
    textOutput("result"),
    dataTableOutput('table')
)
  server = function(input, output) {
    rv <- reactiveValues()
    observeEvent(input$solvent,{rv$data<-data.frame(vol1=input$solvent,vol=input$vol_ETOH)})
    output$table<-renderDataTable({ rv$data})

    output$result <- renderText({
      paste("You chose", input$solvent)
    })
  }

shinyApp(ui, server)

---

ui我不完全确定应用程序应该如何反应。然而，我认为将
observeEvent
行更改为
observeEvent（input$add，{rv$data），感谢Juergen的建议。但是，我希望input$solvent成为列名，然后输入的值向下添加到列中（每个值都有新行）。这是否可能？是否有一种方法可以简单地拥有一个下拉列表和一个数字输入，并根据用户在下拉列表中选择的内容进行更改？