Открыть блестящее приложение, щелкнув ссылку в другом блестящем приложении?

Чтобы открыть ссылку извне, вы можете вставить:

tag("a", list(href = "http://www.myapps.com/otherapp", "Other App"))

Тег «a» в HTML (языке) используется для обозначения ссылки, вообще говоря, а атрибут href указывает место, куда вставляется путь. Ниже я собрал быстрый пример, используя всю галерею Shiny App и справочные ссылки.

ui <- bootstrapPage(
  tag('ul',
lapply(read_html("http://shiny.rstudio.com/gallery/") %>%
xml_find_all('//a'), function(i){
li <- url_absolute(xml_attr(i, 'href'), xml_url(i))
data.frame(li = li, 
          txt = stri_trans_totitle(
                trimws(gsub("\\-|\\.html"," ",basename(li)))),
          stringsAsFactors = FALSE)
  }) %>% rbind.pages() %>% 
dplyr::filter(!duplicated(txt)) %>% apply(., 1, function(x){
    tag("li",list(tag("a", list(href = x[[1]],x[[2]]))))
  }))
)

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

}

shinyApp(ui, server)

Для любой ссылки на внешнее приложение вы можете использовать:

ext.link <- function(label = NULL, link = NULL){
   tag("a", list(href = link,
       ifelse(!is.null(label), label, basename(link))))
}

Что создаст html в вашем приложении:

> ext.link(label = "New app", link = "http://mypage.com/new_app")
  <a href="http://mypage.com/new_app">New app</a>

Спасибо, Карл, у меня была аналогичная проблема, с дополнительной необходимостью создать динамическую ссылку, которая изменяется в зависимости от действий пользователя. Я решил так (я переписал ваш код shiny.rstudio.com/gallery)

extract_info <- function(html_line) {
    li <- url_absolute(xml_attr(html_line, 'href'), xml_url(html_line))
    data.frame(li = li, 
               txt = stri_trans_totitle(trimws(gsub("\\-|\\.html", " ", basename(li)))),
               stringsAsFactors = FALSE)
}

mydata.df <- lapply(read_html("http://shiny.rstudio.com/gallery/") %>%
                       xml_find_all('//a'), 
                    function(line) extract_info(line)) %>%
    rbind_pages() %>% 
    dplyr::filter(!duplicated(txt))

ui <- fluidPage(        
    titlePanel("Select shiny apps"),
    sidebarLayout(
        sidebarPanel(
            numericInput(inputId = "myline", label = "Select one line", 
                         value = 1, min = 1, max = NA, step = 1),
            uiOutput("wantedlink")
        ),
        mainPanel(DT::dataTableOutput("mytable"))
    )
)

server <- function(session, input, output) {
    output$mytable <- DT::renderDataTable({ DT::datatable( mydata.df ) })

    mylink <- reactive({ 
        mydata.df$li[input$myline] })
    mytext <- reactive({ 
        mydata.df$txt[input$myline] })

    output$wantedlink <- renderUI({
       HTML(sprintf('<a href = %s target = "_blank">%s</a>', as.character(mylink()), mytext()))
    })
}

shinyApp(ui, server)