shiny：画像をクリックするとタブが変わります

Question

私はShinyアプリケーションを作成していますが、この種のレイアウトにはあまり知られていないユーザーの一部は、アプリケーションがタブで動作していて、どこからホームページに行くのですか？

私はメインページに大きなインフォーメーションを表示したいので、クリックすると自動的に2番目のタブがアクティブになります。私は、画像へのリンクを追加する方法を知っている：

tags(a(img(src="image.png"), href="link.com")) 

そして、私はプログラム的に別のタブを選択する方法を知っている：

updateTabsetPanel(session, inputId="navbar", selected="tab2") 

しかし、どのようにこれらの2つのアクションを組み合わせること？ ありがとう、

Answer 1

画像をidとし、onclick()の機能をshinyjsから使用できます。使用例：

require(shiny) 
require(shinyjs) 


ui <- fluidPage(
    img(id="my_img",src="image.png",style="cursor:pointer;"), 
    useShinyjs(), 
    tabsetPanel(id="navbar", 
       tabPanel("tab1", p("This is tab 1")), 
       tabPanel("tab2", p("This is tab 2")) 
) 
) 



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

    shinyjs::onclick("my_img", updateTabsetPanel(session, inputId="navbar", selected="tab2")) 

} 

shinyApp(ui,server)