R/mod_acercade.R

In loadeR: Load Data for Analysis System

#' acercade UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_acercade_ui <- function(id){
  ns <- NS(id)
  tagList(
    img(src = "img/Logo.png",
        style = paste0("padding-bottom:20px;margin-left: auto;",
                       "margin-right: auto;display: block;width: 50%;")),
    infoBoxPROMiDAT(
      labelInput("copyright"), "PROMiDAT S.A.", icono = icon("copyright")
    ),
    
    infoBoxPROMiDAT(
      labelInput("info"), tags$a(
        href = "https://www.promidat.com/", style = "color:white;",
        target = "_blank", "https://www.promidat.com"), icono = icon("info")
    ),
    
    infoBoxPROMiDAT(
      labelInput("version"), "1.3.0", icono = icon("file-code"))
  )
}
    
#' acercade Server Function
#'
#' @noRd
mod_acercade_server <- function(id, updateData) {
    moduleServer(id, function(input, output, session) {
      ns <- session$ns
  })
}
    
## To be copied in the UI
# mod_acercade_ui("acercade_ui_1")
    
## To be copied in the server
# mod_acercade_server("acercade_ui_1")