@@ -466,8 +466,9 @@ corresponding to replicates (A-C), grouped columns are arranged A1, A2, A3, A4,

                                    given by the biological homogeneity index (BHI, see also <a href='http://www.ncbi.nlm.nih.gov/pmc/articles/PMC1590054/'>paper</a>)<br/>

 <b>Important: </b>In the case of more than 2000 features in cluster, they will be limited to the 2000 with the highest membership values.

     ")})

-  output$reading <- renderUI({HTML("The source code of VSClust is available at <a href='https://bitbucket.org/veitveit/vsclust'>bitbucket</a>. VSClust was developed and implemented 

-                                   at the <a href='http://www.sdu.dk/en/Om_SDU/Institutter_centre/Bmb_biokemi_og_molekylaer_biologi/Forskning/Forskningsgrupper/Protein.aspx'>Protein Research Group</a> of the University of Southern Denmark. See also <a href='computproteomics.bmb.sdu.dk'>computproteomics.bmb.sdu.dk</a> for more information.")})

+  output$reading <- renderUI({HTML("VSClust is now available as R package via <a href='https://bioconductor.org/packages/release/bioc/html/vsclust.html'>Bioconductor</a> including the different functions 

+                                   for running the analysis. The source code of VSClust is available at <a href='https://github.com/veitveit/vsclust'>bitbucket</a>. VSClust was developed and implemented 

+                                   at the <a href='https://www.sdu.dk/en/forskning/protein'>Protein Research Group</a> of the University of Southern Denmark. See also <a href='computproteomics.bmb.sdu.dk'>computproteomics.bmb.sdu.dk</a> for more information.")})

   output$DownloadExample <- downloadHandler(

     filename = function() {

       paste("ExampleFile.csv")

@@ -15,14 +15,16 @@ shinyUI(fluidPage(theme=shinytheme("cosmo"),

         $(id).addClass("active");

         $(idFile).replaceWith(idFile = $(idFile).clone(true));

     });

+ $(document).on("shiny:connected", function() {

  window.addEventListener("message", displayMessage, false);

  function displayMessage(evt) { 

- console.log(evt.data)

  var inmessage = JSON.parse(evt.data);

  console.log(inmessage); 

  console.log("read message");

+ evt.source.postMessage("vsclust data received",evt.origin);

  Shiny.setInputValue("extdata", evt.data);

-}

+ };

+});

   ')),

                   tags$head(tags$style("body {background-image: url('/BackgroundTexture.jpg');background-size:cover;} 

   .shiny-myframe{padding:20px}

@@ -31,7 +33,7 @@ shinyUI(fluidPage(theme=shinytheme("cosmo"),

                   h1(img(src="Logo.svg",style="width:150px"),"Variance-sensitive fuzzy clustering",style="text-shadow: 1px 0px #999900;font-weight:bold;color: #888888;"),

-                  p("See also: ",a(href="https://bitbucket.org/veitveit/vsclust","Source code and installation"),br(),"Publication: ",a(href="https://doi.org/10.1093/bioinformatics/bty224","Veit Schwämmle, Ole N Jensen; Bioinformatics 2018,bty224"),br(),"Tutorial: ",a(href="", "To appear in the book Quantitative Methods in Proteomics"),style="font-size:8px;text-align:right"),

+                  p("See also: ",a(href="https://github.com/veitveit/vsclust","Source code and installation"),br(),"Publication: ",a(href="https://doi.org/10.1093/bioinformatics/bty224","Veit Schwämmle, Ole N Jensen; Bioinformatics 2018,bty224"),br(),"Tutorial: ",a(href="https://pubmed.ncbi.nlm.nih.gov/33950508/", "Quantitative Methods in Proteomics"),style="font-size:8px;text-align:right"),

                   tabsetPanel(

                     tabPanel("File input", br(), 

                              p(