R/vMod0_moduleTemplate.R

Defines functions moduleTemplate_Server moduleTemplate_UI

Documented in moduleTemplate_Server moduleTemplate_UI

#' moduleTemplate_UI
#'
#' @param id
#' @param label
#'
#' @return
#' @keywords internal
#'
#' @examples
moduleTemplate_UI <- function(id, label="moduleTemplate"){
    ns <- shiny::NS(id)

    shiny::fluidPage(

#=========================================================
        shiny::fluidRow(
            shiny::column(12,
                shiny::wellPanel("Additional Inputs",
                                shiny::br(),
                                shiny::br(),
                                shiny::br()
                                )
                )
        ),
#=========================================================
        shiny::fluidRow(
            shiny::column(3,
                shiny::wellPanel("Options",
                                shiny::br(),
                                shiny::br(),
                                shiny::br(),
                                shiny::br(),
                                shiny::br(),
                                shiny::br()
                                )
                    ),
            shiny::column(9,
                shiny::tabsetPanel(
                    shiny::tabPanel("Results"),
                    shiny::tabPanel("Help")
                )
                    )
        )
    )
}


#' moduleTemplate_Server
#'
#' @param input
#' @param output
#' @param session
#'
#' @return
#' @keywords internal
#'
#' @examples
moduleTemplate_Server <- function(input, output, session){
    nspace<-session$ns
}
lucidif/HiCeekR documentation built on Jan. 31, 2021, 10:30 p.m.