library(shiny)
server <- function(input, output, session) { 
    output$habr <- renderText({
      "Хабрахабр"
    })
  } #the server
ui <- basicPage(fluidPage(
  textOutput("habr")
)) # the user interface
shinyApp(ui = ui, server = server) # this launches your app