shiny - 在shinyjs中切换标签

Question

我试图在闪亮的不同选项卡中调用 js，如下面的代码

library(shiny)
library(shinyjs)

ui <- tagList(
  useShinyjs(),
   navbarPage(
   "shinyjs with navbarPage",
   tabPanel("tab1",
         actionLink(inputId = 'link',label = 'Fast Forward')
         ),
 tabPanel("tab2",
         actionButton("button", "Click me"),
         textInput(inputId = "hello", label='',value = "Hello!")
         )
 )
)

server <- function(input, output, session) {
  observeEvent(input$link, {
  runjs('$("#link").click();')
})

observeEvent(input$button,{
  toggle("hello")
})
}

shinyApp(ui, server)

命令没有通过，可能是什么问题？

Answer 1

尝试使用此修改后的服务器部分：

server <- function(input, output, session) {
            observeEvent(input$link, {
                    runjs("$('a[data-value=\"tab2\"]').tab('show');")

            })

            observeEvent(input$button,{
                    toggle("hello")
            })
    }

Answer 2

我发现了错误。

我写

runjs('$("#link").click();') 

代替

runjs('$("#button").click();')