Открыть новое окно в информационной панели Shinydashboard

Question

Вот простой (я спешу):

У меня есть этот информационный блок, и мне нужно href, чтобы открыть новое окно.

infoBox("value","info", icon = icon("user"), href = "http://url.com")))

есть ли аргумент для этого? потому что теперь он открывается в той же вкладке.

Answer 1

Типичный способ открыть новое окно - установить цель ссылки на "_blank". Вы можете сделать это в JavaScript , используя второй параметр метода window.open , т.е. window.open(url, target). Вы можете запустить JavaScript по ссылке, используя протокол javascript:. Собираем все вместе:

library(shiny)
library(shinydashboard)

newTabLink <- "javascript:void(window.open('https://google.com', '_blank'))"
ui <- fluidPage(
    infoBox("value", "info", icon = icon("user"), href = newTabLink)
)

server <- function(input, output, session) {}

shinyApp(ui = ui, server = server)

(Оборачивание JavaScript в void(...) - это обычная лучшая практика при помещении JavaScript в ссылку, но здесь это может быть ненужным.)