Why is renderText not displaying Cyrillic correctly?

Question

R

OS X
Sample code:

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

Answer 1

Helped:
Sys.setlocale("LC_ALL", 'ru_RU.UTF-8')