#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.