selectInput("VariableSelectQuanti",h5(strong("Sélectionnez les variables numériques que vous souhaitez transformer en variables qualitatives"),h6(em("Sélection multiple avec CTRL"))),
namesQuanti,
selected=1,multiple=TRUE,size=1,selectize=FALSE)
})
output$QuantiToQuali<-renderUI({
input$GoQuali
names=isolate(input$VariableSelectQuanti)
namesVar=paste(names,collapse=", ")
if(length(names)>0)HTML(paste("Les variables suivantes seront considérées comme des",'<b>',"variables qualitatives :",'</b>','<br/>',namesVar))