如何在闪亮的 bsPopover 中格式化/对齐文本？答案

【问题标题】：How to format/align text in shiny bsPopover?如何在闪亮的 bsPopover 中格式化/对齐文本？
【发布时间】：2018-07-21 11:25:48
【问题描述】：

我是 Shiny r 的新手，正在尝试构建一个应用程序。我正在使用 bspopover 在滑块输入上显示一个弹出框。弹出框中的文本像指针一样分成多行（见下文）

我。这是第 1 行

ii.这是第 2 行

三。这是第 3 行

我已将这 3 行存储在一个变量中（见下文）

CR1_BS<-paste("i. This is line 1",
      "ii. This is line 2",
      "iii. This is line 3")

然后使用 bspopover 之类的

bsPopover(id="CR1_S1",title="x",content=strsplit(CR1_BS, "\n")[[1]] ,"right",options = list(container = "body"))

在弹出窗口中当前显示为纯文本，没有不同的行，例如 "i. 这是第 1 行","ii. 这是第 2 行","iii. 这是第 3 行"

因为我需要输出如下所示

我。这是第 1 行

二。这是第 2 行

三。这是第 3 行

我已经通过网站和其他互联网资源进行了搜索，但还没有找到解决方案。非常感谢您的帮助。

【问题讨论】：

标签： r shiny popover shinydashboard shinybs

【解决方案1】：

这可以使用一个小的 <br> 来完成，它是 javascript 中的换行符。

这是一个示例代码：

library(shiny)
library(shinyBS)

CR1_BS<-paste("i. This is line 1",
              "ii. This is line 2",
              "iii. This is line 3", sep = "<br>")


ui <- fluidPage(
  actionButton("CR1_S1", "Button"),

  bsPopover(id="CR1_S1",title="x",content=CR1_BS ,"right",options = list(container = "body"))
)

server <- function(input, output){}

shinyApp(ui, server)

这样，您将获得一个带有弹出框和换行符的应用，如下所示：

希望对你有帮助！

【讨论】：