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

Question

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

我。这是第1行

ii。这是第2行

III。这是第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"))

在popover中当前显示为纯文本，没有不同的行 的＆＃34;岛这是第1行＆＃34;，＆＃34; ii。这是第2行＆＃34;，＆＃34; iii。这是第3行＆＃34;

我在哪里需要输出如下所示

我。这是第1行

II。这是第2行

III。这是第3行

我通过网站和其他互联网资源搜索但尚未找到解决方案。非常感谢您的帮助。

Answer 1

这可以使用javascript中的换行符<br>来完成。

以下是示例代码：

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)

有了这个，你会得到一个带有popover和换行符的应用程序，如下所示：

希望它有所帮助！