Как отобразить разные цвета на каждой стороне ползунка в приложении Shiny?Когда вы скользите с любой стороны, цвет также должен быть заполнен автоматически - PullRequest
Новая
       6

Как отобразить разные цвета на каждой стороне ползунка в приложении Shiny?Когда вы скользите с любой стороны, цвет также должен быть заполнен автоматически

0 голосов
/ 13 февраля 2019

Как отобразить разные цвета на каждой стороне ползунка в приложении Shiny?При перемещении с любой стороны цвет также должен заполняться автоматически

[trying to get a slider shown in pic here 2

библиотека (блестящие виджеты) библиотека (блестящая)

блестящий пользовательский интерфейс (fluidPage (

#) Заголовок приложения titlePanel («Данные старого верного гейзера»),

# Боковая панель с ползунком для ввода количества бинов sidebarLayout (sidebarPanel (

  #tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar {background: purple}")),
  tags$head( tags$style( type = "text/css", '
   .irs-line-mid{
     background: yellow ;
     border: 1px black ;
   }
  .irs-line-left{
    background: red ;width: 100%;
    # border-top: 1px red ; #solid #CCC ;
    # border-left: 1px blue ;
    # border-bottom: 1px blue ;# solid #CCC ;
  }
   .irs-line-right{
     background: green ;width: 100%;
  }
  .irs-bar {
    background: linear-gradient(to right, green, green);
    border-top: 1px red ; #solid #CCC ;
    border-left: 1px blue ;
    border-bottom: 1px blue ;# solid #CCC ;
  }
  .irs-bar-edge {
    background: green ; #inherit ;
    border: blue ; #inherit ;
  }

')),
  #chooseSliderSkin("Modern",color = "blue"),
  #setSliderColor(c("red" ),1),#", "#FF4500", "", "Teal"), c(1, 2, 4)),
  sliderInput("range",
               "RangeNumber of bins:",
               min = 1,
               max = 50,
               value = c(30,40),step =0.1)),

# Show a plot of the generated distribution
mainPanel(
   plotOutput("distPlot")
)
*)1016 *)))

1 Ответ

0 голосов
/ 13 февраля 2019

Я не уверен, возможно ли, чтобы обе стороны были разных цветов, к сожалению.Может быть, это так, но я не мог понять это за несколько минут, которые я пытался.Лучшее, что я могу вам дать, - это CSS, который можно использовать, чтобы иметь средний цвет, а две стороны - другой цвет.Это не то, что вы просили, но, надеюсь, все еще полезно. 

library(shiny)

ui <- fluidPage(
  tags$style(".irs-line {background: red} .irs-bar {background: green}"),
  sliderInput("test", "Test", 5, 10, c(7, 8))
)

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

}

shinyApp(ui, server)

demo

...