Как отформатировать/выровнять текст в блестящем bsPopover?

Я новичок в 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

Я искал через сайт и другие интернет-ресурсы, но пока не смог найти решение. Ваша помощь очень ценится.


r popover shiny shinydashboard shinybs
person WiseChirag    schedule 11.02.2018    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Это можно сделать с помощью небольшого <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)

При этом вы получаете приложение с всплывающим окном и разрывом строки, например: введите здесь описание изображения

Надеюсь, поможет!

person SBista    schedule 11.02.2018