R/mod_about.R

In DivadNojnarg/deminR: deminR

# Module UI
  
#' @title   mod_about_ui and mod_about_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_about
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_about_ui <- function(id){
  ns <- NS(id)
  tagList(
    f7Panel(
      inputId = ns("about_panel"),
      title = "About",
      side = "left",
      theme = "dark",
      effect = "cover",
      resizable = FALSE,
      f7Block(
        f7Chip(img = "www/avatars/girl.svg", label = tags$a(href = "https://twitter.com/devauxgabrielle", target="_blank", "Gabrielle Devaux",  class = "external")),
        f7Chip(img = "www/avatars/boy.svg", label = tags$a(href = "https://twitter.com/divadnojnarg", target="_blank", "David Granjon", class = "external"))
      ),
      f7Link(
        label = "Github", 
        src = "https://github.com/DivadNojnarg/deminR",
        external = TRUE,
        icon = f7Icon("ant", old = TRUE)
      )
    )
  )
}
    
# Module Server
    
#' @rdname mod_about
#' @export
#' @keywords internal
    
mod_about_server <- function(input, output, session){
  ns <- session$ns
}
    
## To be copied in the UI
# mod_about_ui("about_ui_1")
    
## To be copied in the server
# callModule(mod_about_server, "about_ui_1")