FirebaseEmailLink: Email Link

In firebase: Integrates 'Google Firebase' Authentication Storage, and 'Analytics' with 'Shiny'

Email Link

Description

Sign in the user by emailing them a link.

Value

An object of class FirebaseEmailLink.

Super classes

firebase::Firebase -> firebase::FirebaseAuth -> FirebaseEmailLink

Active bindings

email_verification

Email verification results

email_sent

Email send results

Methods

Public methods

• FirebaseEmailLink$new()

• FirebaseEmailLink$config()

• FirebaseEmailLink$send_email()

• FirebaseEmailLink$get_email_sent()

• FirebaseEmailLink$get_email_verification()

• FirebaseEmailLink$clone()

Inherited methods

• firebase::Firebase$expose_app()
• firebase::FirebaseAuth$clear()
• firebase::FirebaseAuth$delete_user()
• firebase::FirebaseAuth$expose_auth()
• firebase::FirebaseAuth$get_access_token()
• firebase::FirebaseAuth$get_delete_user()
• firebase::FirebaseAuth$get_id_token()
• firebase::FirebaseAuth$get_sign_out()
• firebase::FirebaseAuth$get_signed_in()
• firebase::FirebaseAuth$get_signed_up()
• firebase::FirebaseAuth$is_signed_in()
• firebase::FirebaseAuth$print()
• firebase::FirebaseAuth$req_sign_in()
• firebase::FirebaseAuth$req_sign_out()
• firebase::FirebaseAuth$request_id_token()
• firebase::FirebaseAuth$set_language_code()
• firebase::FirebaseAuth$sign_out()

---

Method new()

Usage

FirebaseEmailLink$new(
  persistence = c("session", "local", "memory"),
  config_path = "firebase.rds",
  language_code = NULL,
  session = shiny::getDefaultReactiveDomain()
)

Arguments

persistence

How the auth should persit: none, the user has to sign in at every visit, session will only persist in current tab, local persist even when window is closed.

config_path

Path to the configuration file as created by firebase_config.

language_code

Sets the language to use for the UI. Supported languages are listed here. Set to browser to use the default browser language of the user.

session

A valid shiny session.

Details

Initialiases Firebase Email Link

Initialises the Firebase application client-side.

---

Method config()

Usage

FirebaseEmailLink$config(url, ...)

Arguments

url

The link is handled in the web action widgets, this is the deep link in the continueUrl query parameter. Likely, your shiny application link.

...

Any other parameter from the official documentation.

Details

Configure

Examples

\dontrun{
f <- FirebaseEmailLink$
 new()$ # create
 config(url = "https://me.shinyapps.io/myApp/")
}

---

Method send_email()

Usage

FirebaseEmailLink$send_email(email)

Arguments

email

Email to send verification to.

Details

Send email verification link.

Returns

self

Examples

\dontrun{
f <- FirebaseEmailLink$
 new()$ # create
 config(url = "https://me.shinyapps.io/myApp/")$
 send("[e-mail]")
}

---

Method get_email_sent()

Usage

FirebaseEmailLink$get_email_sent()

Details

Get whether email verification was correctly sent.

Returns

A list of length 2 containing success a boolean indicating wherther sending the email was successful and response containing the email used to sign in or the error if sending failed.

---

Method get_email_verification()

Usage

FirebaseEmailLink$get_email_verification()

Details

Get whether user is signing in from email verification.

Returns

A list of length 2 containing success a boolean indicating wherther signing in from the verification link was successful and response containing the result of the sign in or the error if signing in failed.

---

Method clone()

The objects of this class are cloneable with this method.

Usage

FirebaseEmailLink$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Note

Other methods to pick up whether user signs in still apply. This is for added security measures.

Examples

library(shiny)
library(firebase)
old <- options()
options(shiny.port = 3000) 

ui <- fluidPage(
  useFirebase(),
  textInput("email", "Your email"),
  actionButton("submit", "Submit")
)

server <- function(input, output){

  f <- FirebaseEmailLink$
    new()$
    config(url = "http://127.0.0.1:3000")

  observeEvent(input$submit, {
    if(input$email == "")
      return()
    
    f$send(input$email)
  })

  observeEvent(f$get_email_sent(), {
    sent <- f$get_email_sent()

    if(sent$success)
      showNotification("Email sent", type = "message")
  })

  observeEvent(f$get_email_verification(), {
    print(f$get_email_verification())
  })

}

if(interactive()){
   shinyApp(ui, server)
}


options(old)


## ------------------------------------------------
## Method `FirebaseEmailLink$config`
## ------------------------------------------------

## Not run: 
f <- FirebaseEmailLink$
 new()$ # create
 config(url = "https://me.shinyapps.io/myApp/")

## End(Not run)

## ------------------------------------------------
## Method `FirebaseEmailLink$send_email`
## ------------------------------------------------

## Not run: 
f <- FirebaseEmailLink$
 new()$ # create
 config(url = "https://me.shinyapps.io/myApp/")$
 send("[e-mail]")

## End(Not run)

firebase documentation built on July 9, 2023, 7:07 p.m.