ui.R 4.51 KB
Newer Older
1

2 3

# Define UI for application that draws a histogram
4
shinyUI(
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
5
    
6 7
    fluidPage(
        
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
8 9
        theme = shinytheme("cerulean"),
        lang = "en",
10
    
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
        fluidRow(
            # Application title
            titlePanel(
                    "VirHostEvol - Browse Positive Selection Sites (PSS) along CDS encoding the SARSCov-2 Viral Interaction Proteins."
        ),
        fluidRow(
            div(
                column(width = 2, tags$img(src ="https://www.sfr-biosciences.fr/medias/images/seminaires/logo-seminaires/logo-ciri.jpg",height=100, style="text-align: center;")),
                column(width = 2, tags$img(src ="https://upload.wikimedia.org/wikipedia/fr/7/7d/Logo_lbbe.png",height=100, style="text-align: center;")),
                column(width = 2, tags$img(src ="http://amsb.prabi.fr/amsb-logo.png",height=100, style="text-align: center;")),
            )        )
        ),
        # Sidebar with a slider input for number of bins 
        fluidRow(
            column(12,
26
            tags$div(class="header", checked=NA,
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
27 28
                     HTML("This is the online supplementary materials of the manuscript entitled <b>'Evolutionary history of SARS-CoV-2 interacting proteins in primates and bats reveals major host determinants, including TMPRSS2, FYCO1, RIPK1, and TBK1.'</b> by Cariou M. et <i>al.</i><br>doi://<br>Add other informatio stuff ...")
            )
29
            )
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
30 31 32 33
        ),
        
        br(),
        
34
        # Show a plot of the generated distribution
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
35 36 37 38 39
        fluidRow(
            column(12,
                tabsetPanel(type = "tabs",
                        
                    tabPanel("DGINN full dataset",
40
                        
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
                        tags$div(class="header", checked=NA,
                        HTML("<br><br><b>Please select/click on a row</b> to visualise candidates PSS infered by DGINN [https://doi.org/10.1093/nar/gkaa680] on top of a simplified Multiple Sequence Alignment (MSA).<br>At the bottom of the phylogenetic tree and MSA, users can download data by following the <b><i>.tree</i></b> and <b><i>.fas</i></b> hyperlinks. 
                        </br>Add other informatio stuff ...<br><br>")),
                        
                        shinycssloaders::withSpinner(
                            DT::dataTableOutput("dginn_data")
                        ),
                        tags$div(class="header", checked=NA,
                        HTML("<br><br><b>Table: DGINN gene summary table.</b> This table is the output of DGINN and highlights the nucleotide sites under positive selection (PSS) infered at the codon level 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 Laboratory [https://doi.org/10.1038/s41586-020-2286-9].")),
                
                        shinycssloaders::withSpinner(
                            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 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 visualise candidates sites in the context of the MSA.<br><br>")),
                        
                        shinycssloaders::withSpinner(
                            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.")),
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
64
                                 
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
65 66 67 68 69
                        shinycssloaders::withSpinner(
                            plotOutput("ggtree_ggmsa_site_plot",width="400px",height = "800px")
                            ),
                        tags$div(class="header", checked=NA,
                        HTML("<br><br><b>Figure PSS MSA.</b> This is a representation of the nucleotide MSA around the candidate PSS codon.<br><br>"))
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
70
                                 
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
71 72 73 74
                    ),
                    tabPanel("DGINN dataset 2","")
        
                )
75 76 77
            )
        )
    )
NAVRATIL VINCENT's avatar
NAVRATIL VINCENT committed
78

79
)