Parlak bir şekilde navbarın içine bir bağlantı ekleyin

Question

Parlak bir şekilde navbarPage ile bir navara bağlantı ekleme ile ilgili bir sorunum var. Bağlantı kurabilirim ama navbar tuhaf görünüyor. Bunu nasıl düzelteceğini bilen var mı?

gezinme çubuğu üzerinde bir bağlantı içeren bir uygulamayı üretmek için: shiny_0.9.1

ile

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

Teşekkür!

DÜZENLEME: Bir meslektaşım bu ve @ 20050 8519 den çözümü göstermek için headerof panelinden 2.

bir uygulama içine panelde 3'te istediğimiz linki puting oluşur, bana bir geçici çözüm göstermek başlığın uygulamasında bağlantıdan 21102 26896 16937:

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

Ben bununla, Navbar'da başlığın sol sitesi elemanı için Shiny daha yeni bir sürümü üzerinde çalışan başardı:

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, 
# [...] 
)