Let's go for 100 percent of https

LoadPackages.R

@@ -4,7 +4,7 @@ options(bitmapType='cairo')
 if (!require("Rcpp")){
   install.packages("Rcpp",  repos="https://cran.univ-paris1.fr/")
 }
-
+# Limited shiny 1.3.2
 if(!require(shiny)){
   install.packages("shiny",  repos="https://cran.univ-paris1.fr/")
 }

server.R

@@ -3936,7 +3936,7 @@ shinyServer(function(input, output,session) {
     else if(input$PlotVisuSelect=="Boxplot") res = plotOutput("Boxplot", height = input$heightVisu+10, width=if(input$modifwidthVisu){input$widthVisu})
     else if(input$PlotVisuSelect=="Krona"){
       if(Sys.info()["nodename"] == "ShinyPro"){
-        res= tags$iframe(src=paste0("http://hub05.hosting.pasteur.fr/aghozlane/KronaRShy/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)
+        res= tags$iframe(src=paste0("https://kronashiny.pasteur.fr/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)
       }
       else{
         res= tags$iframe(src=paste0("http://127.0.0.1:5438/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)