HTML("<br><br><b>Please select a row</b> to visualise canidates sites on top of the phylogenetic tree and a simplified Multiple Sequence Alignment representation where lightgrey and darkgrey regions of the MSA corresponds respectively to substitution and insertion evolutionary events.<br>At the bottom of the phylogenetic tree and MSA, users you can download data by following the <b>.tree</b> and <b>.fas</b> hyperlinks. </br>Add other informatio stuff ...<br><br>")),
HTML("<br><br><b>Please select a row</b> to visualise candidates PSS on top of a simplified Multiple Sequence Alignment.<br>At the bottom of the phylogenetic tree and MSA, users can download data by following the <b>.tree</b> and <b>.fas</b> hyperlinks. </br>Add other informatio stuff ...<br><br>")),
DT::dataTableOutput("dginn_data"),
tags$div(class="header",checked=NA,
HTML("<br><br><b>Table: DGINN gene summary output table.</b> This table is the output of DGINN software and highlights the nucleotide sites under positive selection (PSS) infered by the BppM1M2, BppM7M8, codemlM1M2, codemlM7M8 models in either primates and bats taxonomic lineages for a selection of genes encoding SARSCov-2 Viral Interacting Proteins (aka VIP) identified by the Krogan Lab.")),
HTML("<br><br><b>Table: DGINN gene summary table.</b> This table is the output of DGINN software [REF] and highlights the nucleotide sites under positive selection (PSS) infered by the BppM1M2, BppM7M8, codemlM1M2, codemlM7M8 models in either primates and bats taxonomic lineages for a selection of genes encoding SARSCov-2 Viral Interacting Proteins (aka VIP) identified by the Krogan Lab.")),
plotOutput("ggtree_plot",height="800px"),
tags$div(class="header",checked=NA,
HTML("<br><br><b>Figure: Phylogenetic tree + MSA</b>. This is a back to back representation of the phylogentic tree and a simplified MSA.<br><br>")),
HTML("<br><br><b>Figure: Phylogenetic tree + MSA</b>. This is a back to back representation of the phylogentic tree and a simplified MSA where lightgrey and darkgrey regions of the MSA correspond respectively to substitution and insertion/deletion events.<br><br>")),
tags$div(class="header",checked=NA,
HTML("<br><br><b>Please select a row</b> to visualiser candidates sites in the context of the MSA.<br><br>")),
HTML("<br><br><b>Please select a row</b> to visualise candidates sites in the context of the MSA.<br><br>")),
DT::dataTableOutput("dginn_site_data"),
tags$div(class="header",checked=NA,
HTML("<br><br><b>Table: DGINN output by PSS.</b>This table contains a list of candidate PSS with their p-values.")),
