如何在Shiny中默认选择verbatimTextOutput中的文本？

这是与我之前的问题相关的问题（是否可以有固定宽度的 verbatimTextOutput 并让文本在 Shiny 中换行？ https://stackoverflow.com/q/58516071/7669809）。我有以下闪亮的应用程序（https://yuchenw.shinyapps.io/Shiny_verbatimtext_fixed/ https://yuchenw.shinyapps.io/Shiny_verbatimtext_fixed/）与一个verbatimTextOutput可以显示长文本。是否可以默认选择这些文本？书签按钮的行为就是一个例子。如下图所示，当书签弹出窗口出现时，文本已经被选中。我想使用重现相同的行为verbatimTextOutput.

Code

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)

感谢@ismirsehregal 的帮助。在这里我分享了这个问题的解决方法。这个答案使用textAreaInput在只读模式下，不verbatimTextOutput正如我最初要求的那样。不过，我对这次的结果和最终的外观感到满意textAreaInput.

我根据这篇文章学习了如何选择文本（https://stackoverflow.com/a/50745110/7669809 https://stackoverflow.com/a/50745110/7669809）。我还学习了如何设置只读模式textAreaInput从这篇文章（使用jquery使textarea只读 https://stackoverflow.com/q/3297923/7669809）。这是我的代码。

library(shiny)

ui <- function(request){
  fluidPage(
    column(
      width = 6,
      tags$head(
        tags$script("
      Shiny.addCustomMessageHandler('selectText', function(message) {
        $('#txt_out').select();
        $('#txt_out').prop('readonly', true);
      });
    ")
      ),
      textInput(inputId = "txt", label = "Type in some texts",
                value = paste0(rep(letters, 10), collapse = "")),
      textAreaInput("txt_out", label = "Show the texts", heigh = "300px"),
      br(),
      bookmarkButton()
    )
  )
}
server <- function(input, output, session){
  observeEvent(input$txt, {
    updateTextAreaInput(session = session, inputId = "txt_out", value = input$txt)
  })
  observeEvent(input$txt_out, {
    session$sendCustomMessage("selectText", "select")
  })
}
enableBookmarking("url")
shinyApp(ui, server)

这是应用程序运行时的外观。