R Shiny：使用Shinymaterial以编程方式切换标签

编程问答 2022-06-11

问题描述

我正在使用shinymaterial R package制作一个shiny应用，并且希望能够以编程方式交换标签页。在this pull request中，我做了以下说明，但是无法使用该功能。

我如何适应以下示例以使用shinymaterial以编程方式更改标签？

library(shinymaterial)
library(shiny)

select_material_tab <- function(session,tab_id){
  
  js_code <- paste0('$(\'li.tab a[href$="#',tab_id,'"]:first\').trigger("click");')
  
  session$sendCustomMessage(
    type = "shinymaterialJS",js_code
  )

}


ui <- material_page(
  title = "Select Material Tabs",material_side_nav(fixed = FALSE,tags$h3("Side-Nav Content")),material_tabs(
    tabs = c( "First Tab" = "first_tab","Second Tab" = "second_tab")
  ),material_tab_content(
    tab_id = "first_tab",material_button(input_id = "button",label = "GO TO SECOND TAB")
  ),material_tab_content(
    tab_id = "second_tab",tags$h1("Second Tab Content")
  )
)

server <- function(input,output,session) {
  observe({
    if (input$button != 0) 
      select_material_tab(session,"second_tab")
  })
}

shinyApp(ui = ui,server = server)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

javascriptrrshinyshinyapps