r - 結果がテキスト出力として表示される場合に、sliderinput と selectinput を乗算する方法

Question

Shinyapp を使用するのは初めてで、助けを求めるのは初めてです。Data1 と呼ばれる df のサンプルを次に示します。

+--------+-------+-----+-------+--------+-------------+
|  Manu  | Model | Des | Trans |  Fuel  | costpermile |
+--------+-------+-----+-------+--------+-------------+
| ABARTH |     1 | a   | SAT5  | Diesel | 0.12        |
| ABARTH |     2 | b   | 6AT   | Petrol | 0.14        |
| ALFA   |     3 | c   | M6    | Petrol | 0.13        |
| ALFA   |     4 | d   | M6    | Petrol | 0.11        |
+--------+-------+-----+-------+--------+-------------+

列がselectinputsであるRの光沢のあるアプリを作成しようとしています。ユーザーは、sliderinput を使用して、必要なマイル数を選択します。[costpermile] * [sliderinput value] をテキスト出力として表示する結果が欲しいです。

これまでのところ、私のコードは必要ではないすべての行の値を提供しています。1つの値を取得する方法がわかりません。

シナリオ例: ドロップダウン メニューから選択: ABARTH, 1, a, SAT5, Diesel, 0.12 次に、スライダーで 100 マイルを選択 表示したい結果: (0.12*100) = 12

Code so far: 

    library(openxlsx)
    library(googlesheets4)
    library(tidyverse)
    library(tidyr)
    library(plyr)
    library(dplyr)
    library(googledrive)
    library(googlesheets)
    library(shiny)

    ui <- fluidPage(
      selectInput("Select1", "Manu", unique(Data1$Manu)),
      selectInput("Select2", "Model", choices = NULL),
      selectInput("Select3", "Des", choices= NULL),
      selectInput("Select4", "Trans", choices= NULL),
      selectInput("Select5", "Feul", choices= NULL),
      selectInput("Select6", "costpermile", choices= NULL),
      sliderInput("num", "Choose miles", value = 100, min = 0, max = 200, step= 50),
      textOutput( "total")

    )

    server <- function(input, output,session) {
      observeEvent(input$Select1,{
        updateSelectInput(session,'Select2',
                          choices=unique(Data1$Model[Data1$Manu==input$Select1]))
    }) 

    observeEvent(input$Select2,{
      updateSelectInput(session,'Select3',
                        choices=unique(Data1$Des[Data1$Manu==input$Select1 & 
                                                           Data1$Model==input$Select2]))
    }) 

    observeEvent(input$Select3,{
      updateSelectInput(session,'Select4',
                        choices=unique(Data1$Trans[Data1$Manu==input$Select1 & 
                                                            Data1$Model==input$Select2 & 
                                                            Data1$Des==input$Select3]))
    }) 

    observeEvent(input$Select4,{
      updateSelectInput(session,'Select5',
                        choices=unique(Data1$Fuel[Data1$Manu==input$Select1 & 
                                                           Data1$Model==input$Select2 & 
                                                           Data1$Des==input$Select3 & 
                                                           Data1$Trans==input$Select4]))
    }) 

    observeEvent(input$Select5,{
      updateSelectInput(session,'Select6',
                        choices=unique(Data1$costpermile[Data1$Manu==input$Select1 &
                                                           Data1$Model==input$Select2 &
                                                           Data1$Des==input$Select3 &
                                                           Data1$Trans==input$Select4 &
                                                           Data1$Fuel == input$Select5
                                                           ]))
    }) 


    output$out <- renderUI({
      if (input$Select6 == TRUE){
      sliderInput("num", "Choose miles", value = 100, min = 0, max = 200, step= 50)
    }})


    values <- reactiveValues()

    observe({values$complete <- Data1$costpermile * input$num

    })

    output$total <- renderText({ values$complete})

    }

    shinyApp( ui= ui, server= server)