Question

在我的闪亮应用程序中，我希望有一个带有一些文本的弹出窗口。为了使文本更具可读性，我想包含一些换行符，但到目前为止我失败了。知道我该怎么做？我目前正在使用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)

在闪亮的modalDialog中插入一个新行

1 个答案: