有光泽：单击图像时更改选项卡

Question

我正在构建一个Shiny应用程序，我的一些用户（不太熟悉这种布局）不明白应用程序使用选项卡，他们只是看不到从主页去哪里。

这就是为什么我想在主页面上显示一个大的infography，当他们点击它时，它会自动激活第二个标签。我知道如何添加图像链接：

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

我知道如何以编程方式选择不同的选项卡：

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

但是如何将这两个行动结合起来呢？谢谢，

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)

希望这可以帮助！