r - 闪亮的逐字文本输出中的分词/分词

Question

我经历过类似的话题，但我没有找到答案。我想知道是否有人在闪亮的 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)

谢谢 ！干杯