Use "ui content" instead of "ui segment" in dashboard body. Related to #147

[andrie]

Fix theming problem with dashboard_body()

As described in #147, using a dark theme doesn't work well. For example, the headers remain white on white.

This fixes this specific issue by using content instead of segment for the dashboard body.

Light theme:

Dark theme (cyborg):

Test code:

library(shiny)
library(semantic.dashboard)

ui <- dashboardPage(
  theme = "cyborg",
  dashboardHeader(),
  dashboardSidebar(side = "left", size = "thin",
                   sidebarMenu(
                     menuItem(tabName = "tab1", "Tab 1"),
                     menuItem(tabName = "tab2", "Tab 2"))),
  dashboardBody(tabItems(
    tabItem(tabName = "tab1", p("Tab 1")),
    tabItem(tabName = "tab2", p("Tab 2"))))
)

server <- function(input, output) {
}

shinyApp(ui, server)

[dokato]

This looks like a good starter, but I think that the problem lays in the fact that some Fomantic UI features are still not available for SemanticUI themes.