library(shiny)
library(bs4Dash)
# Inside ui_right_sidebar.R
sidebar_elements <- list(div(checkboxInput("checkMe", "Example Check")))
sidebar_menu <- controlbarMenu(id = "controlbarmenu",
controlbarItem("Item 2", "Simple text"))
# -- Register Right Sidebar Elements in the ORDER SHOWN in the UI
add_ui_right_sidebar(sidebar_elements = sidebar_elements,
sidebar_menu = sidebar_menu)
Run the code above in your browser using DataLab