ebailey78 / shinyBS

Twitter Bootstrap Components for Shiny
182 stars 47 forks source link

Example with Shiny modal window with navlistPanel #55

Open abhik1368 opened 8 years ago

abhik1368 commented 8 years ago

I am working on this for long i have a navlistpanel with multiple tabpanels and each of the tabpanel returns htmlOuput. I set the navlistPanel with some id and tabpanels with value. When each of the tabpanels are clicked a page is returned. Now i want each of the page to be shown as modal window. I made it to work with one tabpanel but when i try to use it with other tabpanels it modal window fails to show up. i am using shinyBS package for modal window.

Here is a part of my code ui.R

navlistPanel(id="terms",well =FALSE,widths = c(2, 6), tabPanel("Main",value="main", htmlOutput("main") ), tabPanel("Drug",value="drug", bsModal("modal1", "Drugs", "terms", size = "large", htmlOutput("drug")) ), tabPanel("DrugType/MOA",value="dtmoa", bsModal("modal2", "Drug MOA", "terms", size = "large",
htmlOutput("dtmoa")) ))