@@ -100,14 +100,14 @@ reset <- function(id = "", asis = FALSE) {
100100
101101 # list of inputs that can have multiple values and need the value parsed from a
102102 # comma-separated list to a vector
103- inputsStrToVec <- c(" Slider" , " SliderDate" , " SliderDateTime" , " DateRange" , " AirDate" , " NoUiSlider" , " NumericRange" , " SliderText" , " SlimSelect" , " VirtualSelect" )
103+ inputsStrToVec <- c(" Slider" , " SliderDate" , " SliderDateTime" , " DateRange" , " AirDate" , " NoUiSlider" , " NumericRange" , " SliderText" , " SlimSelect" , " Tree " , " VirtualSelect" )
104104
105105 if (type %in% inputsStrToVec ) {
106106 value <- strToVec(value )
107107 }
108108
109109 # list of inputs that use a 'selected' instead of 'value' argument
110- inputsParamSelected <- c(" RadioButtons" , " CheckboxGroup" , " Select" , " CheckboxGroupButtons" , " RadioGroupButtons" , " SliderText" , " SlimSelect" , " Spectrum" , " VirtualSelect" )
110+ inputsParamSelected <- c(" RadioButtons" , " CheckboxGroup" , " Select" , " CheckboxGroupButtons" , " RadioGroupButtons" , " SliderText" , " SlimSelect" , " Spectrum" , " Tree " , " VirtualSelect" )
111111 # list of inputs that don't use 'selected' or 'value' arguments
112112 inputsParamOther <- c(" DateRange" )
113113
@@ -185,7 +185,7 @@ getUpdateFunc <- function(type) {
185185 }
186186
187187 # list of inputs whose update function is taken from {shinyWidgets}
188- shinyWidgetsInputs <- c(" AirDate" , " CalendarPro" , " CheckboxGroupButtons" , " ColorPickr" , " Knob" , " NoUiSlider" , " NumericRange" , " RadioGroupButtons" , " SliderText" , " SlimSelect" , " Spectrum" , " Time" , " VirtualSelect" )
188+ shinyWidgetsInputs <- c(" AirDate" , " CalendarPro" , " CheckboxGroupButtons" , " ColorPickr" , " Knob" , " NoUiSlider" , " NumericRange" , " RadioGroupButtons" , " SliderText" , " SlimSelect" , " Spectrum" , " Time" , " Tree " , " VirtualSelect" )
189189
190190 if (type == " Colour" ) {
191191 pkg <- " colourpicker"
0 commit comments