I am using below code in server.R to display the text in the main panel. This is working exactly the way it should work.
server.R
output$text1 <- rend
in ui.r:
ui.r
span(textOutput("message"), style="color:red")
in server.r:
server.r
output$message <- renderText({"This is some red text"})