inst/fw_templ/p_example/ui_sidebar_no_reset.R

In periscope: Enterprise Streamlined 'Shiny' Application Framework

# ----------------------------------------
# --       PROGRAM ui_sidebar.R         --
# ----------------------------------------
# USE: Create UI elements for the
#      application sidebar (left side on
#      the desktop; contains options) and
#      ATTACH them to the UI by calling
#      add_ui_sidebar_basic() or
#      add_ui_sidebar_advanced()
#
# NOTEs:
#   - All variables/functions here are
#     not available to the UI or Server
#     scopes - this is isolated
# ----------------------------------------

# -- IMPORTS --



# ----------------------------------------
# --     SIDEBAR ELEMENT CREATION       --
# ----------------------------------------

# -- Create Basic Elements
basictext <- div(style = "padding-top: 5px;",
                 helpText(align = "center",
                          "The BASIC tab is intended for commonly used ",
                          "options and settings for the application."))

# -- Register Basic Elements in the ORDER SHOWN in the UI
add_ui_sidebar_basic(list(basictext), append = FALSE)


# -- Create Advanced Elements
advancedtext <- div(style = "padding-top: 5px;",
                    helpText(align = "center",
                             style = "info",
                             "The ADVANCED tab is intended for less-commonly ",
                             "used options and settings for the application."))

# -- Register Advanced Elements in the ORDER SHOWN in the UI
add_ui_sidebar_advanced(list(advancedtext), append = FALSE)