library(shiny)
kujundus <- shinyUI(fluidPage(
  titlePanel("Arvutamise leht"),
  sliderInput("arv1", label="inimeste arv", min=1, max=15, value=3),
  sliderInput("arv2", label="pikkuste standardhälve", min=1, max=15, value=3),
  plotOutput("joonis1")
))

arvutus <- shinyServer(function(input, output){
   output$joonis1=renderPlot({
      barplot(rnorm(input$arv1, 170, input$arv2))
   })
})

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

#Lisaülesanne: lisa teine slaider kellaaja määramiseks.