r - 在 Shiny 的 modalDialog 中插入新行

Question

在我 Shiny 的应用程序中，我想要一个带有一些文本的弹出窗口。为了使文本更具可读性，我想包含一些换行符，但到目前为止我失败了。知道我该怎么做吗？我目前正在使用 modalDialog()

 ui = basicPage(
actionButton("show", "Show modal dialog")
),
server = function(input, output) {
observeEvent(input$show, {
  showModal(modalDialog(
    title = "My text",
    "This is the first line. 
     This should be the second."
  ))
})
}

我尝试过:br()、\n 以及它们的几种变体。没有任何效果。

帮助!!!

Answer 1

您可以将其包装在 HTML() 中然后使用 <br> ，类似于您上面提到的尝试。所以你可以改用:HTML("This is the first line.<br>
This should be the second.")
有关完整的应用程序，请参见下文:

ui = basicPage(
  actionButton("show", "Show modal dialog")
)
server = function(input, output) {
  observeEvent(input$show, {
    showModal(modalDialog(
      title = "My text",
      HTML("This is the first line.<br> 
      This should be the second.")
    ))
  })
}
shinyApp(ui, server)