library(shiny)
shinyApp(
  ui <- fluidPage(
    tags$style(type = "text/css",
               ".irs-grid-text:nth-child(-2n+12) {color: #006400; font: bold;font-size: 12px;}",
               ".irs-grid-text:nth-child(2n+14) {color: #3CB371; font: bold;font-size: 12px;}",
               ".irs-grid-text:nth-child(2n+24) {color: orange; font: bold;font-size: 12px;}",
               ".irs-grid-text:nth-child(2n+36) {color: red; font: bold;font-size: 12px;}",
               ".irs-grid-pol:nth-of-type(-n+10) {background: #006400; font: bold;}",
               ".irs-grid-pol:nth-of-type(n+11) {background: #3CB371; font: bold;}",
               ".irs-grid-pol:nth-of-type(n+23) {background:orange; font: bold;}",
               ".irs-grid-pol:nth-of-type(n+34) {background:red; font: bold;}"),
    sliderInput("bins", "Number of bins:", 1, 10, 1)
  ),
  server <- function(input, output) {})

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(
                      inlineCSS(".form-group {margin-bottom: 0;}"
                      ),
                      tabItems(
                        tabItem(tabName = "comp",
                                fluidRow(
                                  sliderInput("range_var", "", value = 1, min = 1, max = 10, width = '100%'),
                                  div(id="belowslider", style= "display:inline-block; width: 59%; background-color: green;", p()),
                                  div(id="belowslider1", style= "display:inline-block; width: 40%; background-color: orange;", p())
                                  )))))

server <- function(input, output, session) {
}

shinyApp(ui, server)