0

I want to color my last four sliders by using setSliderColor() but it changes first 4 sliders.

I tried use c(7,8,9,10) but no changes happened.

Here is my code:

fluidRow(
              box(width = 4,
                  title = "Inputs",
                    sliderInput(inputId = "mean",label = "Non-Disease Mean",value = 125,min = 0,max = 500),
                    sliderInput(inputId = "stdev",label = "Non-Disease Standard Deviation",value = 25,min = 0,max = 50),
                    sliderInput(inputId = "mean_2",label = "Disease Mean",value = 200,min = 0,max = 500),
                    sliderInput(inputId = "stdev_2",label = "Disease Standard Deviation",value = 25,min = 0,max = 50)
                  ),
              box(width = 4,
                  title = "Controls",
                    sliderInput("Threshold","Threshold",min = 0,max = 500,value = 150),
                    sliderInput("boundary","Glucose Range",min = 0,max = 500,value = c(0,500))      
                  ),
              box(width = 4,
                  title = "Inputs",
                    setSliderColor(c("green","red","red","green",c(1,2,3,4)),
                  
                    sliderInput(inputId = "U[D-A-]",label = "Utility of no Disease with no Action",min = 0,max = 1,value = 1),
                    sliderInput(inputId = "U[D+A-]",label = "Utility of Disease with no Action",min = 0,max = 1,value = 0),
                    sliderInput(inputId = "U[D-A+]",label = "Utility of no Disease with Action",min = 0,max = 1,value = 0),
                    sliderInput(inputId = "U[D+A+]",label = "Utility of Disease with Action",min = 0,max = 1,value = 1)
                 )
              ),
Kyle Wei
  • 1
  • 1

0 Answers0