R/flowR_ui.R

In VoisinneG/flowR: R-shiny interface for the analysis of flow cytometry data

#' flowR app main ui function
#' @import shiny
#' @import shinydashboard
#' @export
flowR_ui <- function() {

  body <- {
    dashboardBody(
      uiOutput("body")
  )}

  sidebar <- {
    dashboardSidebar(
      sidebarMenu(id = "sidebar_tabs", menuItemOutput("menu"))
  )}
  
  ui <- dashboardPage(header = dashboardHeader(title = "flowR"),
                      sidebar = sidebar,
                      body = body)
  
  return(ui)
}