Question

我正在构建一个Shiny应用程序，我的一些用户（不太熟悉这种布局）不明白应用程序与标签一起工作，他们只是不知道在哪里从主页开始。

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

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

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

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

但是如何结合这两个动作呢？谢谢，

Answer 1

您可以为图片id，并使用shinyjs中的onclick()功能。工作示例：

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)

希望这有帮助！

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

1 个答案: