library(shiny)
ui <- shinyUI(fluidPage(
   titlePanel("Funktsiooni uurimine"),
   sliderInput("a", "T6us:", min = -5, max = 5, value = 2, step=0.1),
   sliderInput("b", "Vabaliige:", min = -5, max = 5, value = 2, step=0.1),
   numericInput("c", "x-kontroll", value=4),
   textInput("d", "selgitus", "Lineaarfunktsioon"),
   plotOutput("joonis")
))

server <- shinyServer(function(input, output) {
   output$joonis <- renderPlot({
      plot(0, 0, xlim=c(0, 10), ylim=c(0, 10), type="n")
      abline(input$b, input$a)
      abline(v=input$c)
      text(3, 5, input$d)
   })
})

shinyApp(ui = ui, server = server)