HTML-теги bs_embed_popover в переменной содержимого - PullRequest
Новая
       16

HTML-теги bs_embed_popover в переменной содержимого

0 голосов
/ 29 января 2019

Я пытаюсь поместить ссылку на URL в content var bs_embed_popover функции для приложения R Shiny Документация говорит

content: персонаж,содержимое для тела всплывающего окна может быть HTML

Тем не менее, я вижу тег в виде простого символа в блестящем приложении.enter image description here

library(shiny)
library(bsplus)
library(htmltools)
library(shinydashboard)

# UI
ui <-   
  dashboardPage(
    dashboardHeader(title = "Titles"),
    dashboardSidebar(
      use_bs_popover(),
      selectInput(
        inputId = "letter",
        label = "Label with popover help",
        choices = c("a", "b", "c")
      ) %>%
        shinyInput_label_embed(
          shiny_iconlink() %>%
            bs_embed_popover(
              title = "Letter", content = paste0("Choose a favorite","<a href='www.google.com'>  Test link </a>")
              , placement ="right"
            )
        )
    ),
    dashboardBody(
      tags$style(HTML('.popover-title {color:black;}
                      .popover-content {color:black;}
                      .main-sidebar {z-index:1;}')
    )

  ))

# Server
server <- shinyServer(function(input, output) {    
})

# Run the applicationenter image description here
shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 06 февраля 2019

Вы можете добавить инструкцию html="true" после инструкции content=HTML(paste0(...., например: 

bs_embed_popover(
              title="Letter"
              , content=paste0("Choose a favorite","<a href='www.google.com'>  Test link </a>")
              , placement="right"
              , html="true"
            )
...