I have the following sliderInput:
slider <- sliderInput( inputId = \'slider1\', label = \'Select value\', min = min(vector1), max = max(vector1), value = v