#-------------------------------------------------------------------------
# This code contains the controlsidebar of shinydashboard. It is the
# sidebar available on the left. Parameters are put in this sidebar.
# Sliders are handled via a conditionalPanel, but this can be disable
#
# David Granjon, the Interface Group, Zurich
# December 4th, 2017
#-------------------------------------------------------------------------
dashboardControlbar <- function(ctrlHTML = NULL) {
# be very careful! Only 5 tabs maximum in the navigation
if ( is.null(ctrlHTML) ) {
} else {
ctrlHTML
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.