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