R/main.R

In ansible-community/stats-map: Ansible Contributor Map

#' main UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList tags
mainUI <- function(id) {
  ns <- NS(id)
  tagList(
    mapUI(ns("map_1"))
  )
}

#' main Server Function
#'
#' @noRd
mainServer <- function(id) {
  moduleServer(id, function(input, output, session) {

    # call modules here
    mapServer("map_1")
  })
}