R/mod_loginpage.R

In fizic37/RiskManagement: RiskManagement

#' loginpage UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_loginpage_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinyjs::useShinyjs(),
    div(
      tags$head(tags$style('body {backround-color: #ffffff;}')),
      id = ns("loginpage"),
      style = "width: 500px; max-width: 100%; margin: 0 auto; padding: 20px;",
      wellPanel(
        #
        tags$h2("LOG IN", class = "text-center", style = "padding-top: 0;color:#333; font-weight:600;"),
        textInput(inputId = ns("userName"),  placeholder = "Username",
          label = tagList(icon("user"), "Username"),value = "marius.tita@fngcimm.ro"),
        br(),
        passwordInput(inputId = ns("passwd"), placeholder = "Password",value = "B8yztPhyEb",
          label = tagList(icon("unlock-alt"), "Password")),
        br(),
        div(style = "text-align: center; color: #ffffff",
          actionButton(inputId = ns("login"), "SIGN IN",
            style = "color: white; background-color:#547a77;
                                 padding: 10px 15px; width: 150px; cursor: pointer;
                                 font-size: 18px; font-weight: 600;"),
          shinyjs::hidden(div(id = ns("nomatch"),
            tags$p("Oops! Incorrect username or password!",
              style = "color: red; font-weight: 600;padding-top: 5px;font-size:16px;",
              class = "text-center")  )) )  )  )
  )
}
    
#' loginpage Server Function
#'
#' @noRd 
mod_loginpage_server <- function(input, output, session,vals){
  ns <- session$ns
  credentials <- data.frame(username_id = c("niculina.popescu@fngcimm.ro",
                                            "adelina.minicaru@fngcimm.ro","marius.tita@fngcimm.ro",
                                            "guest_user"),
                            passod   = sapply(c("I8bHLIh60t", "dwSHEY1KAc","B8yztPhyEb", 
                                                "4AihUn8gOJ"),
                                              sodium::password_store),
                            permission  = c("risk-user", "risk-user", "admin", "guest-user"),
                            stringsAsFactors = F,row.names = NULL)
  
  # Observer for login process
  observe({if (vals$login == FALSE) {
    if (!is.null(input$login)) {
      if (input$login > 0) {
        Username <- isolate(input$userName)
        Password <- isolate(input$passwd)
        if(length(which(credentials$username_id==Username))==1) { 
          pasmatch  <- credentials["passod"][which(credentials$username_id==Username),]
          pasverify <- sodium::password_verify(pasmatch, Password)
          if(pasverify) {
            vals$login <- TRUE
            removeUI(selector = "#loginpage_ui_1-loginpage")
            vals$user_type <- dplyr::pull(.data = dplyr::filter(.data = credentials,username_id==Username),permission) }
          
          else {
            shinyjs::toggle(id = "nomatch", anim = TRUE, time = 1, animType = "fade")
            shinyjs::delay(3000, shinyjs::toggle(id = "nomatch", anim = TRUE, time = 1, animType = "fade"))
          }
        } else {
          shinyjs::toggle(id = "nomatch", anim = TRUE, time = 1, animType = "fade")
          shinyjs::delay(3000, shinyjs::toggle(id = "nomatch", anim = TRUE, time = 1, animType = "fade"))
        }
      } 
    }
  }    
    
    
  })
}
    
## To be copied in the UI
# mod_loginpage_ui("loginpage_ui_1")
    
## To be copied in the server
# callModule(mod_loginpage_server, "loginpage_ui_1")