R/mod_main.R

In ColinFay/hexmake: Hex Stickers Maker

# Module UI

#' @title   mod_main_ui and mod_main_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_main
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList tags
mod_main_ui <- function(id){
  ns <- NS(id)
  tagList(
    tags$div(
      class="container", 
      tags$div(
        class="row", 
        tags$div(
          class="col left split", 
          mod_left_ui(ns("left_ui_1"))
        ), 
        tags$div(
          class = "col right split", 
          mod_right_ui(ns("right_ui_1"))
        ) 
      )
    ), 
    tags$div(
      class = "realmiddle", 
      tags$i(
        class="arrow rightarrow"
      )
    )
  )
}

# Module Server

#' @rdname mod_main
#' @export
#' @keywords internal
#' @importFrom shiny callModule reactiveValues
mod_main_server <- function(
  input, 
  output,
  session
){
  ns <- session$ns
  
  img <- Hex$new()
  r <- reactiveValues(
    live = TRUE
  )
  
  init("render")
  init("restore")
  init("restore_modifs_checks")
  
  callModule(mod_left_server, "left_ui_1", img, r)
  callModule(mod_right_server, "right_ui_1", img)
}