R/mod_admin_acces.R

In sjdDumas/boursefonciereforestiere: Bourse d'échange foncière forestière

#' admin_acces UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_admin_acces_ui <- function(id){
  ns <- NS(id)
  tagList(
    modalDialog(
      passwordInput(ns("psw"),"Saisissez le mot de passe"),
      column(6,
      actionBttn(ns("ok"),"OK",size = "xs")
      ),
      column(6,
             actionBttn(ns("abandonner"),"Abandonner",size = "xs")
      ),
      
      
      footer = NULL
      
    )
  )
}
    
#' admin_acces Server Function
#'
#' @noRd 
mod_admin_acces_server <- function(input, output, session){
  ns <- session$ns
 
  observeEvent(input$abandonner,{
    stopApp()
  })
  observeEvent(input$ok,{
    admin <- read.csv(file.path(get_path(),"admin.csv"),stringsAsFactors = F)
    
    if(input$psw == admin$psw_admin){
      callModule(mod_admin_server,"mod")
      showModal(mod_admin_ui(ns("mod")))  
    }else{
      showNotification("Mot de passe erroné")
    }
    
  })
}
    
## To be copied in the UI
# mod_admin_acces_ui("admin_acces_ui_1")
    
## To be copied in the server
# callModule(mod_admin_acces_server, "admin_acces_ui_1")