Inserire un collegamento nella barra di navigazione in splendente

Question

Ho qualche problema con l'inserimento di un collegamento in una barra di navigazione con navbarPage in lucido. Posso mettere un link ma la barra di navigazione sembra strana. Qualcuno sa come aggiustarlo ?

Per produrre un'applicazione con un link nella barra di navigazione:

library(shiny) 
runApp(list(
    ui = navbarPage(
     title="My App", 
    tabPanel("tab1"), 
    tabPanel("tab2"), 
    tabPanel(a(href="http://stackoverflow.com", "stackoverflow"))), 
    server = function(input, output) { } 
)) 

Con shiny_0.9.1

Grazie!

EDIT: Un collega mi mostri una soluzione, e composto da mettendo il link che vogliamo in pannello 3 al pannello headerof 2.

un app per dimostrare questo e la soluzione da @ 20050 8519 21102 26896 16937 per il collegamento in applicazione del titolo:

runApp(list(
    ui = navbarPage(
    title=HTML("<a href=\"http://stackoverflow.com\">stackoverflow</a>"), 
    tabPanel("tab1"), 
    tabPanel(HTML("tab2</a></li><li><a href=\"http://stackoverflow.com\">stackoverflow")) 
    ), 
    server = function(input, output) { } 
)) 

Answer 1

sono riuscito a farlo funzionare su una versione più recente di lucido per l'elemento sito a sinistra della barra di navigazione, il titolo, con questo:

corner_element = HTML(paste0('<a href=',shQuote(paste0("https://my.page.com/",page_name,"/")), '>', 'Foo', '</a>')) 
navbarPage(corner_element, id="page", collapsable=TRUE, inverse=FALSE, 
# [...] 
)