FirebaseUI$new(persistence = "local") login atuomatically hide `firebaseUIContainer( about firebase

[JohnCoene]

It's a great solution but it works.

library(shiny)
library(firebase)

ui <- fluidPage(
  useFirebase(),
  tags$head(
    tags$script(
      # ui must be present at launch so we leave it there but hide it
      HTML(
        "Shiny.addCustomMessageHandler('show-login', (msg) => {
          $('#ui-wrapper').show();
        })"
      )
    )
  ),
  div(
    id = "ui-wrapper",
    style = "display: none;",
    firebaseUIContainer()
  ),
  reqSignin(actionButton("signout", "Sign out")),
  uiOutput("msg"),
  plotOutput("plot")
)

server <- function(input, output, session){
  f <- FirebaseUI$
    new("local")$
    set_providers(
      email = TRUE,
      yahoo = TRUE,
      google = TRUE,
      github = TRUE,
      twitter = TRUE,
      facebook = TRUE,
      microsoft = TRUE
    )$
    launch()

  output$plot <- renderPlot({
    f$req_sign_in() # require sign in
    plot(cars)
  })

  # Sign in runs twice hence this check
  ran <- 0L
  observe({
    user <- f$get_signed_in() # get logged in user info

    ran <<- ran + 1L

    if(ran < 2L)
      return()

    if(is.null(user))
      session$sendCustomMessage("show-login", list())
  })

  output$msg <- renderUI({
    f$req_sign_in() # require sign in

    user <- f$get_signed_in() # get logged in user info
    print(user)

    h4("Welcome,", user$response$displayName)
  })

  observeEvent(input$signout, {
    f$sign_out()
  })

}

shinyApp(ui, server)

[HugoGit39]

SUPER! Works! Thank you so much!