Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(cognitoR)
your_ui = function() { fluidPage( # Load UI logout logout_ui("logout"), # Load UI Cognito. cognito_ui("cognito"), # Output to show some content. uiOutput("content")) }
your_server = function(input, output, session) { # Call Cognito module. #### cognitomod <- callModule(cognito_server, "cognito") # Call Logout module #### logoutmod <- callModule(logout_server, "logout", reactive(cognitomod$isLogged), sprintf("You are logged in as '%s'", cognitomod$userdata$email)) # To Click on button logout of logout module, call logout in cognito module. #### observeEvent(logoutmod(),{ cognitomod$logout() }) # Check if user is already logged, and load your content. #### observeEvent(cognitomod$isLogged, { if (cognitomod$isLogged) { # User is logged userdata <- cognitomod$userdata output$content <- renderUI({ # Load your content here }) } }) } )
shinyApp( ui = your_ui(), server = your_server() )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.