R Shiny:通过shinyBS使用带有bsModal的导航栏页面

Question

我正试图在navbarPage中添加一个tabPanel，这样当你点击它时，就会打开一个模式窗口，而不是一个新的选项卡。下面的代码段无效，因为tabPanel没有id参数。

library(shiny)
library(shinyBS)
shinyUI(fluidPage(
    navbarPage("Sample App", id = "main_menu", 
        tabPanel("Open Modal", id = "moda")),
    bsModal("modal1", "Example", "moda", p("This is a modal"))
)

如果我从浏览器编辑生成的HTML代码，我可以通过更改行来实现这一点

<a href="#tab-9741-5" data-toggle="tab" data-value="Open Modal">Open Modal</a>

带有

<a href="#" data-toggle="modal" data-target="#modal1">Open Modal</a>

在CCD_ 1元件上。

你知道如何做到这一点吗？或者至少我如何覆盖生成的html？

Answer 1

一种解决方案是使用Javascript重写选项卡标题的属性。下面的JS代码找到选项卡标题链接，并重写其属性。

library(shiny)
jsStr <- '$(document).ready(function(){
  $("a[data-value='OpenModal']").attr({
    "href":"#", 
    "data-toggle":"modal",
    "data-target":"#modal1"
  });
})
' 
ui <- shinyUI(fluidPage(
  tags$head(tags$script(HTML(jsStr))),
  navbarPage("title",
    tabPanel("OpenModal")
  ),
  bsModal("modal1", "Example", "moda", p("This is a modal"))
))