Как умножить ввод слайдера на вход выбора, где результат отображается как текстовый вывод

Question

Новое в использовании shinyapp и новое в обращении за помощью. Вот пример df с именем Data1:

+--------+-------+-----+-------+--------+-------------+
|  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        |
+--------+-------+-----+-------+--------+-------------+

Я пытаюсь создать блестящее приложение R, в котором столбцы являются selectinputs. Затем пользователь использует слайдер, чтобы выбрать желаемое количество миль. Я хотел бы, чтобы результат показывал [costpermile] * [sliderinput value] в качестве текстового вывода.

Пока мой код дает значения для всех строк, что мне не нужно. Я не знаю, как go просто получить одно значение.

Пример сценария: Человек выбирает из выпадающего меню: 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)

Answer 1

вам нужно заменить последнюю часть вашего кода:

values <- reactiveValues()

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

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

Только с output$total следующим образом:

output$total <- renderText({as.numeric(input$Select6) * input$num})

Таким образом, полный код должен быть:

library(openxlsx)
library(tidyr)
library(plyr)
library(dplyr)

library(shiny)

Data1 = data.frame(Manu = c("ABARTH", "ABARTH", "ALFA", "ALFA"),
                   Model = c(1,2,3,4),
                   Des= c("a", "b", "c", "d"),
                   Trans = c("SAT5", "6AT", "M6", "M6"),
                   Fuel = c("Diesel", "Petrol", "Petrol", "Petrol"),
                   costpermile = c(0.12, 0.14, 0.13, 0.11))

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)
    }})



  output$total <- renderText({as.numeric(input$Select6) * input$num})

}

shinyApp( ui= ui, server= server)