Проверьте эту удобную функцию:
def gets(*types):
return tuple([types[i](val) for i, val in enumerate(raw_input().split(' '))])
# usage:
a, b, c = gets(int, float, str)
Сначала, в пользовательском интерфейсе, измените value
для параметра sliderInput, «EU_slider_DF» на value=1
, затем измените свой сервер, чтобы следовать этому
#Add session argument so we can push updates
server<-function(input,output,session){
#Output to our text output, render is reactive so directly use input Сначала, в пользовательском интерфейсе, измените value
для параметра sliderInput, «EU_slider_DF» на value=1
, затем измените свой сервер, чтобы следовать этому
[110]
output$dropinput<-renderPrint({input$szenarios})
#Observe event used to monitor changes anytime the selectinput is changed
observeEvent(input$szenarios,{
if (input$szenarios=="shiny"){ (dropinput<- 2)
}else if (input$szenarios=="calculated") { (dropinput<- 3)
}else{ (dropinput<-1) }
#updates slider based on what is selected
updateSliderInput(session,"EU_slider_DF",value=dropinput, min = 0,
max = 3,step=0.001)
})
}