Html 是否可以有固定宽度的逐字输出，并让文本在文本中换行？

我有一个简单的应用程序，它使用

逐字输出

来显示一些文本。我想知道是否有可能将

逐字输出的宽度固定，并更改文本输出行

请参见此示例（）。我还附上了下面的代码

如所附屏幕截图所示，当字符串很长时，
逐字输出
不会显示所有文本。相反，
逐字输出将在底部显示一个滚动条


但是，我希望在
逐字输出的底部没有滚动条。我还需要在文本较长时，更改行以适应
逐字输出
。以下面的示例为例，单击书签按钮。我们可以看到，这个冗长的URL改变了行，并且在输出的底部没有滚动条。如果书签按钮可以做到这一点，我希望我也可以使
逐字输出
显示类似书签的特征和外观

如果你有任何问题，请告诉我


代码

library(shiny)


ui <- function(request){
  fluidPage(
    column(
      width = 6,
      textInput(inputId = "txt", label = "Type in some texts",
                value = paste0(rep(letters, 10), collapse = "")),
      strong("Show the texts"),
      verbatimTextOutput("txt_out"),
      br(),
      bookmarkButton()
    )
  )
}
server <- function(input, output, session){
  output$txt_out <- renderText({
    input$txt
  })
}
enableBookmarking("url")
shinyApp(ui, server)

库（闪亮）
ui请尝试以下css：

library(shiny)

ui <- function(request){
  fluidPage(
    tags$style(type='text/css', '#txt_out {white-space: pre-wrap;}'),
    column(
      width = 6,
      textInput(inputId = "txt", label = "Type in some texts",
                value = paste0(rep(letters, 10), collapse = "")),
      strong("Show the texts"),
      verbatimTextOutput("txt_out"),
      br(),
      bookmarkButton()
    )
  )
}
server <- function(input, output, session){
  output$txt_out <- renderText({
    input$txt
  })
}
enableBookmarking("url")
shinyApp(ui, server)

库（闪亮）
ui请尝试以下css：

library(shiny)

ui <- function(request){
  fluidPage(
    tags$style(type='text/css', '#txt_out {white-space: pre-wrap;}'),
    column(
      width = 6,
      textInput(inputId = "txt", label = "Type in some texts",
                value = paste0(rep(letters, 10), collapse = "")),
      strong("Show the texts"),
      verbatimTextOutput("txt_out"),
      br(),
      bookmarkButton()
    )
  )
}
server <- function(input, output, session){
  output$txt_out <- renderText({
    input$txt
  })
}
enableBookmarking("url")
shinyApp(ui, server)

库（闪亮）
非常感谢。我在这里发布了一个后续问题（）。如果你能看一下，我将不胜感激。非常感谢。我在这里发布了一个后续问题（）。如果你能看一看，我将不胜感激。