demo/shiny_LDA/ui.R

In AlexisMayer/toolbox:

##################################################################
# UI #############################################################
##################################################################
ui = dashboardPagePlus(
   skin = "blue-light",
   
   # HEADER #######################################################
   header = dashboardHeaderPlus(
      title = "Topic Modeling",
      disable = FALSE,
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "file-import"),
 
   # LEFT PANEL ###################################################
   sidebar = dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem(
        "Tab",
        tabName = "tab",
        icon = icon("map-signs"),
        numericInput("num", label = "Nombre de groupe", value = 3, min = 2)
      )
    )
  ),
  
   # RIGHTSIDEBAR ###############################################################
  rightsidebar = rightSidebar(
     background = "light",
     .items = list(
        fileInput("csvFile.1", HTML("Drop csv")),
           actionBttn(
              "traitement", "Charger", color = "danger",
              style = "material-flat", icon = icon("play-circle"),
              block = TRUE
           )
     )
  ),
  
   # BODY PANEL #################################################################
  body = dashboardBody(
     tags$script(HTML("$('body').addClass('sidebar-mini');")),
     style = "margin: 15px;",
     setShadow(class = "dropdown-menu"),
     useShinyjs(),
     # TABS
     tabPanel(
        "tab",
        plotOutput("plot", height = "500px", width = "900px"),
        DT::dataTableOutput("print.dat"))
  )
  
)