library(tidyverse)

ui <- fluidPage(
   sliderInput("slaider1", "Vali arv: ", min=3, max=10, value=5),
   textOutput(outputId = "tekst1"),
   plotOutput("tahvel1")
)
server <- function(input, output){
    leiaAndmed <-reactive({tibble(x=1:100, y=sin(x*input$slaider1/100))})
    output$tekst1=renderText({input$slaider1*2})
    output$tahvel1=renderPlot({
         leiaAndmed() %>% ggplot(aes(x, y)) + geom_line() })
}
shinyApp(ui = ui, server = server)