library(shiny)
kujundus <- shinyUI(fluidPage(
  titlePanel("Arvutamise leht")
))

arvutus <- shinyServer(function(input, output){

})

shinyApp(ui=kujundus, server=arvutus)