R/cognito_ui.R

In chi2labs/cognitoR: Authentication for 'Shiny' Apps with 'Amazon Cognito'

#' Cognito Shiny Module UI
#'
#' A Shiny UI function to be used to implement Amazon Cognito in your shiny app.
#' This UI loads the required JS.
#'
#' @param id character - Namespace ID
#' @examples
#' cognito_ui("demo")
#' @return A Shiny UI
#' @import shiny
#' @rawNamespace import(shinyjs, except = runExample)
#' @author Pablo Pagnone
#' @export
cognito_ui <- function(id){
  ns <- NS(id)
  jscode <- "Shiny.addCustomMessageHandler('redirect', function(url) { window.location = url;});"
  addResourcePath('cognitor', system.file('', package='cognitoR'))
  fluidRow(
    shinyjs::useShinyjs(),
    HTML('<div id="cognitor_loader"></div>'),
    tags$link(rel = "stylesheet", type = "text/css", href = "cognitor/css/loader.css"),
    tags$head(tags$script(jscode)),
    cookie_ui(ns("cookiemod"))
  )
}