R/mod_login.R

In ceparman/Lims1: A shiny template

# Naming convention :
# all Shinymodule have to begin with `mod_`, in lowercase Except for `UI` , `Input` and `Output`
# use `Input` as sufix if your module is an Input
# use `Output` as sufix if your module is an Output
# use `UI` as sufix if your module is both Input and Output
#
# examples :
# ui side : mod_truc_bidulUI
# server side : mod_truc_bidul
#
# ui side : mod_machin_chouetteInput
# server side : mod_machin_chouette

# all shinyModule must have a documentation page
# one unique page for both ui and server side ( you can use `#' @rdname` to link both function)

# A minimalist example is mandatory

#' @title   mod_loginUI and mod_login
#' @description  A shiny Module for entering credentials and login into Airtable
#'
#' @param id shiny id
#'
#' @export
#' @examples
#'   mod_loginUI("login_body"))
#'   callModule(mod_login,"login_body")

mod_loginUI <- function(id, label = "Log In") {
  ns <- NS(id)

  tagList(
    box(
      textInput(ns("user"), "enter user name"),
      passwordInput(ns("password"),"enter password",""),


      actionButton(ns("validate"), "validate credentials"),
      hr(),
      box(textOutput(outputId = ns("logmessage")))

    )
  )

}


#' mod_login server function
#'
#' @param input internal
#' @param output internal
#' @param session internal
#' @export
#' @rdname mod_login
mod_login <- function(input, output, session) {

  observeEvent(input$validate,{


    output$logmessage <- renderText(
      tryCatch(
        {
          #login <- CoreAPIV2::authBasic(account)
          #lo<-CoreAPIV2::logOut(login$coreApi)

        paste("Credentials Validated user ",input$user,"-", input$password)
        }
        ,
        error =function(cond){
          return("Credentials not accepted")
        }

      )
    )



  })

}