Рендеринг URL-адреса через valueBox() или renderValueBox()

#shiny #shinydashboard

#блестящий #shinydashboard

Вопрос:

Я хочу отобразить веб-сайт через «valueBox» в виде гиперссылки. Ниже приведен код:

 library(shiny)
library(shinydashboard)

ui = shinyUI(dashboardPage(
  dashboardHeader(title = "sam"),
  dashboardSidebar( ),
  dashboardBody(
           fluidRow(
      valueBox("100", subtitle = tags$p("Attendance", style = "font-size: 
200%;"),
           icon = icon("trademark"), color = "yellow", width = 4,
           href = "https://economictimes.indiatimes.com/")
    ) )))

server <- shinyServer(function(input, output) {

})

shinyApp(ui,server)
 

Я не знаю, как закодировать для рендеринга URL-адреса через valueBox() или renderValueBox().

На данный момент URL / веб-сайт отображается в существующем окне. Я хочу, чтобы URL-адрес / веб-сайт отображался во всплывающем окне.

Кто-нибудь может мне помочь в этой проблеме?

Заранее спасибо.

Ответ №1:

Оберните valueBox внутренний a тег. В теге вы можете настроить target = "_blank" открытие ссылки в новом окне или вкладке.

 tags$a(
  href = "https://economictimes.indiatimes.com/", # Link to open
  target = "_blank", # Open in new window
  valueBox("100", subtitle = tags$p("Attendance", style = "font-size: 200%;"),
           icon = icon("trademark"), color = "yellow", width = 4)
)