If I run the code from the "Basic Example" in https://rinterface.github.io/bs4Dash/articles/bs4Dash.html#basic-example, I get an extra custom control switch.
Any idea why this happens and how can I get rid of it?
Thank you
library(shiny)
library(bs4Dash)
shinyApp(
ui = dashboardPage(
header = dashboardHeader(
title = dashboardBrand(
title = "My dashboard",
color = "primary",
href = "https://adminlte.io/themes/v3",
image = "https://adminlte.io/themes/v3/dist/img/AdminLTELogo.png"
)
),
sidebar = dashboardSidebar(),
body = dashboardBody(
lapply(getAdminLTEColors(), function(color) {
box(status = color)
})
),
controlbar = dashboardControlbar(),
title = "DashboardPage"
),
server = function(input, output) { }
)
Set
help = NULL
indashboardPage()
: