shniyにcssを当てるテスト。

slidebar_test.R

if (interactive()) {
  options(device.ask.default = FALSE)
  
  ui <- fluidPage(
    # ここからcss設定の追加
    tags$style(type = "text/css",
               ".shiny-input-container {background-color: #FF0000;}",
               "form.well { background-color: #0000FF"),
    # ここまでcss設定の追加
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        sliderInput("obs", "Number of observations:",  
                    min = 1, max = 1000, value = 500)
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  )
  
  # Server logic
  server <- function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
  }
  
  # Complete app with UI and server components
  shinyApp(ui, server)
}