Создание простого блестящего приложения

Question

Я пытаюсь создать простое блестящее веб-приложение, чтобы показать, сколько денег это стоит, если вы курите. Первый слайдер - это количество сигарет, которые вы курите каждый день. Второй слайдер предназначен для отображения налога на каждую сигарету. Я хочу умножить их (на главной панели), чтобы показать общую стоимость курения за 1 год. Пожалуйста, помогите мне с кодом. Я хочу умножить slider1 x slider2 x 365 = Общая стоимость курения. Объект "tbel", похоже, не работает. Что я делаю неправильно? Пожалуйста, добавьте код.

ui.R

 shinyServer(function(input, output) {
 tbel <- reactive({
 input$slider2  * input$slider3 *365
 })
 output$tekst1 <- renderText(input$slider2)
 output$tekst2 <- renderText(input$slider3)
 output$tekst3 <- renderText(input$slider4)

 })

Server.R

shinyServer(function(input, output) {
tbel <- reactive({
input$slider2  * input$slider3 *365
})
output$tekst1 <- renderText(input$slider2)
output$tekst2 <- renderText(input$slider3)
output$tekst3 <- renderText(input$slider4)

})