You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
808 B
43 lines
808 B
#' 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")
|
|
|