Compatibility for columns with no row parent container

[cpsievert]

Minimal example:

library(htmltools)
library(shiny)

browsable(fluidPage(
  div(class = "col-sm-4", "Left"),
  div(class = "col-sm-8", "Right")
))
browsable(fluidPage(
  bootstraplib::bootstrap(),
  div(class = "col-sm-4", "Left"),
  div(class = "col-sm-8", "Right")
))

With side/main panel

ui <- fluidPage(
  sidebarPanel(
    bootstraplib::bootstrap(),
    "Sidebar"
  ),
  mainPanel(
     "Main panel"
  )
)
shinyApp(ui = ui, server = function(input, output) {})

With navs

ui <- navbarPage(
  "bs3compat",
  tabPanel("Navbar 1",
           sidebarPanel(
             bootstraplib::bootstrap(),
             "sidepanel"
           ),
           mainPanel(
             tabsetPanel(
               tabPanel("Tab 1",
                        "Tab 1"
               ),
               tabPanel("Tab 2", "Tab 2"),
               tabPanel("Tab 3", "Tab 3")
             )
           )
  ),
  tabPanel("Navbar 2", "Nav 2"),
  tabPanel("Navbar 3", "Nav 3")
)

shinyApp(ui = ui, server = function(input, output) {})

[CLAassistant]

All committers have signed the CLA.