I think in this situation you would avoid the standard renderText and renderPrint functions and use the more generic uiOutput/renderUI
library(shiny)
ui <- fluidPage(
textOutput("norm"),
uiOutput("george")
)
gtext <- "პ"
server <- function(input, output, session) {
output$norm <- renderText(gtext)
output$george <- renderUI(gtext)
}
shinyApp(ui, server)