selectizeInput("VarInt",h6(strong("Select the variables of interest (max 2)")),int,selected=intSel,multiple=TRUE,options=list(maxItems=2))
if(!is.null(target))
{
namesTarget=colnames(target)[2:ncol(target)]
selectizeInput("VarInt",h6(strong("Select the variables of interest (max 2)")),namesTarget,selected=namesTarget[1],multiple=TRUE,options=list(maxItems=2))