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="vali arv", min=1, max=12, value=3),
  plotOutput("joonis1")
))

arvutus <- shinyServer(function(input, output){
   output$joonis1=renderPlot({hist(andmed[andmed$Kuu==input$arv1,"TA1H"],
    main="Temperatuuride jaotus", xlim=c(-30, 35))})
})

shinyApp(ui=kujundus, server=arvutus)

# .libPaths("c:/python34/R")
# library(shiny)
# runApp("c:/jaagup/2016/1/veeb2")