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")
)
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.