library(shiny)

ui <- shinyUI(fluidPage(
  titlePanel("Laste andmed"),
  sliderInput("bins","Jaotiste arv:", min = 1, max = 5, value = 3)  ,
  radioButtons("soovalik", "Soo valik",  c("Poisid"= "m", "Tydrukud" = "n", "K6ik" = "k")),
  plotOutput("xyjoonis"),
  plotOutput("pikkustejoonis"),
  plotOutput("distPlot")
  #Tutvuge funktsiooniga plot, kuvage valitud laste pikkuse ja massi graafik
))

server <- shinyServer(function(input, output) {
  lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klasskabe.txt", header=TRUE, sep=",")
  valilapsed <- function(){
    if(input$soovalik=="k"){x <- lapsed}
    else {x <- lapsed[lapsed$sugu==input$soovalik, ]}
    x
  }
  output$xyjoonis <- renderPlot({
     x=valilapsed()
     plot(x$pikkus, x$mass, type="n")
     text(x$pikkus, x$mass, x$eesnimi, col=ifelse(x$sugu=="n", "pink", "blue"))
  })
  output$distPlot <- renderPlot({
    x <- valilapsed()$pikkus
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    hist(x, breaks = bins, col = 'darkgray', border = 'white', 
         main="Ooteaegade jaotus", xlab="Sekundid", ylab="Sagedus")
  })
  output$pikkustejoonis <- renderPlot({
    x=valilapsed()
    x <- x[rev(order(x$pikkus)), ]
    barplot(x$pikkus, names.arg=x$eesnimi, las=2)
    #Luba kasutajal valida, kas naidatakse poiste voi tydrukute pikkusi
  })
})

shinyApp(ui = ui, server = server)