-
Notifications
You must be signed in to change notification settings - Fork 0
/
mod_infotab.R
42 lines (35 loc) · 899 Bytes
/
mod_infotab.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# Module UI
#' @title mod_infotab_ui and mod_infotab_server
#' @description Shiny module which handles display of information in the About
#' tabs.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_infotab
#'
#' @keywords internal
#' @export
#' @import shiny
mod_infotab_ui <- function(id, container = div) {
# Define namespace function for IDs
ns <- NS(id)
# Create tagList to be used in the UI
tagList(
htmlOutput(ns("infotext"), container = container)
) # tagList
} # mod_infotab_ui
# Module Server
#' @rdname mod_infotab
#' @export
#' @keywords internal
mod_infotab_server <- function(input, output, session, info) {
# Define namespace function for IDs
ns <- session$ns
# Provide session info as output
output$infotext <- renderPrint({
info
}) # renderPrint
} # mod_infotab_server