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.
44 lines
808 B
44 lines
808 B
4 years ago
|
#' 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")
|