library(shiny)
ui <- fluidPage(
   titlePanel("Joonis"),
   textInput("tekst1", label="Joonise pealkiri", value="Diameetrite jaotus"),
   textInput("tekst2", label="Y-telje pealkiri", value="kogus"),
   sliderInput("slaider1", label="maxkogus", max = 50, min=3,  value=20),
   selectInput("valik1", label="Vali kuu", choices=c("august", "september")),
   plotOutput("joonis1")
)
server <- function(input, output) {
   ounad=read.table("http://www.tlu.ee/~jaagup/andmed/muu/ounad/antoonovka2.txt",
                   sep=",", header=TRUE)
   output$joonis1 <- renderPlot({
      andmed=ounad[,input$valik1]
      hist(andmed, main=input$tekst1, ylab=input$tekst2,
           ylim=c(0, input$slaider1))
   })
}
shinyApp(ui = ui, server = server)