#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)
)