色を変更はsliderInput

Question

のためにこれは私の光沢のあるアプリがどのように見えるかです：

青スライダーは赤いナビゲーションバーで悪く見えます。誰もそれを赤に変える方法を知っていますか？私はshinytheme("united")を使用しています。

Answer 1

これが答えを@LyzandeRする似ていますが、単純なコードを使用し、任意の追加パッケージ

library(shiny) 

mycss <- " 
.irs-bar, 
.irs-bar-edge, 
.irs-single, 
.irs-grid-pol { 
    background: red; 
    border-color: red; 
} 
" 

ui <- fluidPage(
    tags$style(mycss), 
    sliderInput("num", "Number", 0, 10, 5) 
) 

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

shinyApp(ui, server) 

Answer 2

これは最も簡単な作業ではありませんが、起こる可能性があります。あなたがする必要があるのは、デフォルトで光沢があるデフォルトのブートストラップテーマのCSSを変更することだけです。あなたは（make_css機能で）上記の見ることができるようにあなたが.irs-bar、.irs-bar-edgeを変更する必要が

library(tableHTML) 
ui <- fluidPage(
tags$style(make_css(list('.irs-bar', 
          c('border-top', 'border-bottom', 'background'), 
          rep('red', 3)), 
        list('.irs-bar-edge', 
          c('background', 'border'), 
          c('red', '0px !important')), 
        list('.irs-single', 
          'background', 
          'red'))), 
sliderInput("obs", "Number of observations:", 
      min = 0, max = 1000, value = 500 
), 
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) 
} 

：私はあなたがどのCSS変更することを示すために（UIからシャイニーするあなたはCSSファイルを追加することができます）tableHTMLを使用します。 .irs-singleのいずれかの色を追加します。私は標準赤を使用しました。詳細については、tableHTML::make_csshereのチュートリアルをご覧ください。