我经历过类似的话题,但没有找到答案。我想知道是否有人在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)
谢谢!干杯
也许这就是您想要的。
library(shiny)
ui <- fluidPage(
tags$style(
HTML(
"
#TxtOut {
white-space: pre-wrap;
}
"
)
),
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)