Social

Use social sites for authentication.

Super class

firebase::Firebase -> FirebaseSocial

Methods

Public methods

• FirebaseSocial$set_scope()

• FirebaseSocial$launch_google()

• FirebaseSocial$launch_github()

• FirebaseSocial$launch_facebook()

• FirebaseSocial$launch_twitter()

• FirebaseSocial$clone()

Inherited methods

• firebase::Firebase$delete_user()

• firebase::Firebase$get_delete_user()

• firebase::Firebase$get_sign_out()

• firebase::Firebase$get_signed_in()

• firebase::Firebase$get_signed_up()

• firebase::Firebase$initialize()

• firebase::Firebase$is_signed_in()

• firebase::Firebase$req_sign_in()

• firebase::Firebase$req_sign_out()

• firebase::Firebase$set_language_code()

• firebase::Firebase$sign_out()

---

Method set_scope()

Usage

FirebaseSocial$set_scope(scope)

Arguments

scope

Google scope.

Details

Define the scope to request from Google.

Returns

self

---

Method launch_google()

Usage

FirebaseSocial$launch_google(flow = c("popup", "redirect"))

Arguments

flow

Authentication flow, either popup or redirect.

Details

Launch sign in with Google.

Returns

self

---

Method launch_github()

Usage

FirebaseSocial$launch_github(flow = c("popup", "redirect"))

Arguments

flow

Authentication flow, either popup or redirect.

Details

Launch sign in with Github.

Returns

self

---

Method launch_facebook()

Usage

FirebaseSocial$launch_facebook(flow = c("popup", "redirect"))

Arguments

flow

Authentication flow, either popup or redirect.

Details

Launch sign in with Facebook.

Returns

self

---

Method launch_twitter()

Usage

FirebaseSocial$launch_twitter(flow = c("popup", "redirect"))

Arguments

flow

Authentication flow, either popup or redirect.

Details

Launch sign in with Facebook.

Returns

self

---

Method clone()

The objects of this class are cloneable with this method.

Usage

FirebaseSocial$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

library(shiny)
library(firebase)

# define signin
signin <- modalDialog(
  title = "Login",
  actionButton("google", "Google", icon = icon("google"), class = "btn-danger"),
  actionButton("github", "Github", icon = icon("github")),
  footer = NULL
)

ui <- fluidPage(
  useFirebase()
)

server <- function(input, output) {
  showModal(signin)

  f <- FirebaseSocial$new()

  observeEvent(input$google, {
    f$launch_google()
  })

  observeEvent(input$github, {
    f$launch_github()
  })
}
# NOT RUN {
shinyApp(ui, server)
# }