R/mod_tab_principles.R

In cvmartin/eflows.site: Website for showcasing eflows

#' mod_tab_principles UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
mod_tab_principles_ui <- function(id){
  ns <- NS(id)
  
  sidebar <- menuSubItem("Design principles", tabName = "principles")
  
  content <- 
    tabItem("principles", 
            narrowDiv(
              include_md_text("principles/principles.md")
            ), 
            wideDiv(
            ))
  
  
  list(
    sidebar = sidebar, 
    content = content
  )
}
    
#'  mod_tab_principles Server Function
#'
#' @noRd 
mod_tab_principles_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session
    
    })
}