library(shiny)
andmed=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", sep=",", header=TRUE)
kujundus <- shinyUI(fluidPage(
  titlePanel("Arvutamise leht"),
  sliderInput("arv1", label="kuu", min=0, max=12, value=3),
  sliderInput("arv2", label="pikkuste standardhälve", min=0, max=15, value=3),
  plotOutput("joonis1")
))

arvutus <- shinyServer(function(input, output){
   arvutus <- reactive({
      
      if(input$arv1==0){
         arvud=andmed$TA1H
      } else {
         arvud=andmed[andmed$Kuu==input$arv1, "TA1H"]
      }
      arvud
   })
   output$joonis1=renderPlot({
      hist(arvutus(), 
         main="Temperatuuride jaotus", 
         xlab="kraadid Celsiuse järgi",
         ylab="sagedused",
         xlim=c(-30, 30))
   })
})

shinyApp(ui=kujundus, server=arvutus)

#runApp(appDir="c:/jaagup/2016/2/rakendus1")

#Sisendandmeteks http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt
#Slaideriga määrakse, millise kuu andmeid uuritakse
#Joonisena kuvatakse vastava kuu andmete histogramm
#Juhul, kui kuu numbriks on 0, sel juhul näidatakse histogramm terve aasta kohta

#Lisa teine slaider kellaaja määramiseks, arvestatakse vaid vastava tunni mõõtmisi
#Juhul, kui kellaaeg = -1, sel juhul näidatakse kogu päeva andmeid.