разбиение на слова / разбиение слов на дословном выводе текста на блестящем

Я прошел через похожие темы, но не нашел ответа. Я хотел бы знать, нашел ли кто-нибудь решение для разбивки слов в VerbatimTextOuput в блестящем. Вот пример с разделенными словами. Как сделать, чтобы они не разделялись (без использования полосы прокрутки)?

ui <- fluidPage(
  fluidRow(column(3, verbatimTextOutput("TxtOut")))
)

server <- function(input, output, session) {
  output$TxtOut <- renderText(
    "a longish text that goes over multiple lines and breaks words"
  )
}

shinyApp(ui = ui, server = server)

Спасибо ! Ваше здоровье