如何在闪亮的 bsPopover 中 format/align 文本？

Question

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

我。这是第 1 行

ii.This 是第 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. This is line 1","ii. This is line 2","iii. This is line 3"

因为我需要输出如下所示

我。这是第 1 行

ii.这是第 2 行

iii.这是第 3 行

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

Answer 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)

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

希望对您有所帮助！

如何在闪亮的 bsPopover 中 format/align 文本？

How to format/align text in shiny bsPopover?

r

popover

shiny

shinydashboard

shinybs