R блестящая настройка всплывающей подсказки - PullRequest
0 голосов
/ 01 апреля 2020

Я хочу добавить два абзаца в содержание всплывающей подсказки. Как сделать 2 абзаца. Я хочу выделить часть содержимого во всплывающей подсказке. Ниже приведен код приложения

library(shiny)
library(shinyWidgets)
ui<- navbarPage(title=span("Accounts at a Glance 2018-19",style= {"color: green;font-size:150%"}),
                theme=shinytheme("spacelab"),
                header = tagList(
                  useShinydashboard()
                ),
                tabPanel("Receipts",icon=icon("coins"),
                         fluidRow(column(width=12, offset=2,
                                         valueBoxOutput("revrcpts",width=3),valueBoxOutput("loanrcpts", width=3), valueBoxOutput("borrowings", width=3),
                                         bsPopover(
                                           id = "revrcpts", title = "",
                                           content = "Revenue Receipts of the Government includes Tax Reveue, Non Tax Revenue and Grants in Aid & Contributions",
                                           trigger = "hover",
                                           placement = "bottom",
                                           options = NULL)

                                         ))))

server<- function(input,output){

  output$revrcpts<-renderValueBox({
    shinydashboard::valueBox(
      value=tags$p(prettyNum(105500,big.mark=","),style={"font-family:cambria;font-size:100%;text-align:center;color:white;"}),tags$p("Revenue Receipts (in crore)",style={"font-size:150%;font-family:cambria;text-align:center"}), 
      icon = icon("file-invoice"),
      color = "blue") 
  })

  output$loanrcpts<-renderValueBox({
    shinydashboard::valueBox(
      value=tags$p(prettyNum(22500,big.mark=","),style={"font-family:cambria;font-size:100%;text-align:center;color:white;"}),tags$p("Loans and Advances (in crore)",style={"font-size:150%;font-family:cambria;text-align:center"}),
      icon = icon("credit-card"),
      color = "light-blue",width=NULL) 
  })

  output$borrowings<-renderValueBox({
    shinydashboard::valueBox(
      value=tags$p(prettyNum(32380,big.mark=","),style={"font-family:cambria;font-size:100%;text-align:center;color:white;"}),tags$p("Borrowings (in crore)",style={"font-size:150%;font-family:cambria;text-align:center"}),
      icon = icon("hand-holding-usd"),
      color = "teal",width=NULL) 
  })

}

shinyApp(ui,server)

. В приведенном выше коде я хочу, чтобы содержимое в bspopover было выделено жирным шрифтом, и добавьте в него еще один абзац. Является ли это возможным? Я пробовал теги $ p, но получаю только ошибку.

...