R/page_admin.R

In systemPipeShiny: systemPipeShiny: An Interactive Framework for Workflow Management and Visualization

#' Admin page UI
#' Internal func
#' @importFrom shinyWidgets materialSwitch
#' @noRd
adminUI <- function(){
    ns <- NS("admin")
    shinydashboardPlus::dashboardPage(
        title = "Admin Panel",
        header = shinydashboard::dashboardHeader(

        ),
        sidebar = shinydashboard::dashboardSidebar(

        ),
        body =  shinydashboard::dashboardBody(
            HTML('<h1>Developing<span class="label label-default
                 bg-olive">Next Release</span></h1>'),
            p("Coming in next release"),
            actionButton("reload", "test button"),
            shinyWidgets::materialSwitch(
                inputId = "change",
                label = "Some switch",
                value = TRUE,
                status = "success",
                right = TRUE
            )
        )
    )
}


# TODO toggle sps options
# TODO visitor stats
# TODO encrypt, decrypt file
# TODO