R Shiny: Verwenden Sie navbarPage mit bsModal von shinyBS

Question

Ich versuche, ein TabPanel in navbarPage hinzuzufügen, so dass beim Klicken auf es ein modales Fenster statt einer neuen Registerkarte öffnet. Das folgende Snippet ist nicht gültig, da tabPanel keinen ID-Parameter besitzt.

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")) 
) 

Wenn ich den generierten HTML-Code von Browser bearbeiten, kann ich dies möglich machen, indem Sie die Zeile ändern

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

mit

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

auf dem <li> Element.

Irgendeine Idee, wie man das tut oder mindestens wie kann ich das erzeugte HTML von glänzend überschreiben?

Answer 1

Eine Lösung besteht darin, das Attribut für den Registerkartentitel mit Hilfe von Javascript neu zu schreiben. Der folgende JS-Code findet den Tab-Titel-Link und schreibt seine Attribute neu.

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")) 
))