library(shiny)
kujundus <- shinyUI(fluidPage(
  titlePanel("Arvutamise leht"),
  sliderInput("arv1", label="vali arv", min=1, max=10, value=3),
  textOutput("vastus1")
))
#Koostage veebileht kahe arvu korrutise leidmiseks

arvutus <- shinyServer(function(input, output){
   output$vastus1=renderText({input$arv1*2})
})

shinyApp(ui=kujundus, server=arvutus)

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