inst/protXploRApp/ui.R

In samWieczorek/ProtXploR: Provides a GUI for DAPAR

options(shiny.trace=FALSE)
options(shiny.reactlog=TRUE)


library(shinydashboard)

shinyUI <- tagList(
    useShinyjs(),
dashboardPage(
    dashboardHeader(title = "ProtXploR"),
    dashboardSidebar(
        sidebarMenu(
            menuItem("Explore", tabName = "widgets", icon = icon("th"))
        )
    ),
    dashboardBody(
        
        tabItems(
            
            # Second tab content
            tabItem(tabName = "widgets",
                    
                    #fluidRow(
                        #column(width=6, uiOutput("nbSelectedItems")),
                        #column(width=6, uiOutput("selectTooltipInfo"))
                    #),
                    #DT::dataTableOutput("infosVolcanoTable"),
                    busyIndicator("Calculation in progress",wait = 0),
                    highchartOutput("volcanoplot_rCharts"),
                    h2("Peptides spécifiques"),
                    DT::dataTableOutput("infosUniquePeptidesTable"),
                    h2("Peptides partagés"),
                    DT::dataTableOutput("infosSharedPeptidesTable")
                    

            )
        )
    )
)
)