R Shiny app: создайте гиперссылку на новое окно панели инструментов, используя всплывающее окно

Question

Кто-нибудь знает, можно ли создавать ссылки из выбранных элементов листовки, открывая специальные панели?

Ниже приведен воспроизводимый пример

Когда пользователь нажимает на«Перейти к выделенной панели мониторинга», я хотел бы, чтобы мое приложение открыло новое окно со специальной панелью мониторинга (отображая, например, диаграммы, относящиеся к выбранной стране ...)

library(shiny)
library(leaflet)

# download zip file
download.file(url = "http://thematicmapping.org/downloads/TM_WORLD_BORDERS-0.3.zip", destfile = "TM_WORLD_BORDERS-0.3.zip")

# unzip 
unzip( zipfile = "TM_WORLD_BORDERS-0.3.zip" )

# transfrom to sf and select two countries
world.borders <-read_sf( dsn = getwd(), layer = "TM_WORLD_BORDERS-0.3" )
world.borders <- world.borders[world.borders$NAME %in% c("Australia","United States"),]


ui <- fluidPage(
  leafletOutput("mymap")
)


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

  output$mymap <- renderLeaflet({
    leaflet(options = leafletOptions(maxZoom = 18)) %>% addTiles() %>%
      addPolygons( data = world.borders, fill =  "#D24618", color = "#D24618",
                    popup = paste0(
                     "<b>Country: </b>"
                     , world.borders$NAME
                     , "<br>"
                     , "<a href='"
                     , "' target='_blank'>"
                     , "Go to dedicated dashboard</a>")
                     , label = ~NAME)
                  }) 
}

shinyApp(ui, server)

Любые подсказки будут очень полезныЗаранее спасибо.