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)
)
),