Question

我正在尝试使用一些文本框创建一个Shiny应用程序。我喜欢verbatimTextOutput在文本周围有一个框，但是文本略长，单词在无意义的地方被破坏以包装文本。有什么方法可以阻止这些话被分裂？下面是一个非常简单的例子。

ui <- fluidPage(
  fluidRow(column(3, offset=0, 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)

Answer 1

Because column width is set to 3, your text is wrapping in the output function. As explained in the comments above, following style will prevent wrapping, and add a scroll bar to navigate.

ui <- fluidPage(
  tags$head(tags$style("#TxtOut {white-space: nowrap;}")),
  fluidRow(column(3, offset=0, verbatimTextOutput("TxtOut")))
)

闪亮：在VerbatimTextOutput中停止分词

1 个答案: