0

我是 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"))

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

我需要输出如下所示

一世。这是第 1 行

ii. 这是第 2 行

iii. 这是第 3 行

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

4

1 回答 1

2

这可以使用<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)

这样，您将获得一个带有弹出框和换行符的应用程序，如下所示： 在此处输入图像描述

希望能帮助到你！

于 2018-02-11T08:16:53.937 回答