r - selectInput が数値を出力していません

Question

さまざまな値を棒グラフに追加する Shiny アプリを作成しています。ユーザー入力の numericInput 関数が機能するようになりましたが、selectInput 関数にバグがあります。これらの selectInput() 関数から数値を取得する簡単な方法はありますか? がなければならない！

# values for the selectInput.
Buyback <- 10
Dump <- 30
Reuse <- 20

rec_choice <- data.frame(Buyback, Dump, Reuse)

# Define UI for application 
ui <- fluidPage(

    titlePanel("Shiny app with buggy inputSelect"),
  
    # Sidebar with input.
    pageWithSidebar(
 sidebarPanel(
        helpText("Product 1 information:"),

# Numeric inputs, works! 
        numericInput(
            inputId = "price_1",
            label = "Purchase Price",
            value = "0",
            min = 0,
            width = '50%'
        ),
        numericInput(
            inputId = "install_1",
            label = "Installation cost",
            value = "0",
            min = 0,
            width = '50%'
        ),
# here is the select input function  
        selectInput("disposal_1", "Recycling cost",
                       rec_choice),

#I though this approach may work, but no luck. 
 
# selectInput("disposal_2", "Recycling cost",
        #             choices = c("Buyback" = 10,
        #                         "Dump" = 20,
        #                         "Reuse" = 5)),


# server side.
server <- function(input, output) {

  select_price <- reactive({
# error says I've got a "non-numeric argument to binary operator."
    c(input$price_1 + input$install_1 + input$disposal_1)
})

リアクティブ関数で値を合計する必要があることがわかります。selectInput() が正しく書き出されていない可能性があります。または、"input$disposal_1" 引数に数値を生成させる巧妙な方法があるのでしょうか?

# The chart output: 
    my_bar <- output$costPlot <- renderPlot({
        barplot(select_price(), 
                beside = T,
                border=F, 
                las=2 , 
                col=c(rgb(0.3,0.9,0.4,0.6) ,  
                      rgb(0.3,0.9,0.4,0.6)) , 
                space = 3,
                main="" )
      par(mar=c(6,4,4,4))
      abline(v=c(4.9 , 6.1) , col="grey")
      
      my_bar      
         })    
}

# Run the application 
shinyApp(ui = ui, server = server)