#' inbox UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_inbox_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinycssloaders::withSpinner(
      type = 5,
      hide.ui=F,
      infoBoxOutput(ns("infbox"),width = 12)
    )
  )
}
    
#' inbox Server Functions
#'
#' @noRd 
mod_inbox_server <- function(id,ttl,val="0 %"){
  moduleServer( id, function(input, output, session){
    ns <- session$ns
    output$infbox<-renderInfoBox(
      infoBox(
        ttl,
        val,
        icon = shiny::icon("chart-bar"),
        width = 12
      )
    )
 
  })
}
    
## To be copied in the UI
# mod_inbox_ui("inbox_ui_1")
    
## To be copied in the server
# mod_inbox_server("inbox_ui_1")