### moduleNavTree.R
# Imports
source("functionsInput.R")
source("styleInput.R")
# Guidelines
cat("* Loading System Guideline ...\r")
SystemGuideline = as.list(readRDS("../../guideLines/SystemGuidelineList.RData"))
cat("* System Guideline successfully loaded !\n")
# UI functions
inputUI <- function(id, IM){
ns <- NS(id)
}
# Server functions
input <- function(input, output, session, IM){
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.