Facebook login?

[dcaud]

I'm having trouble getting Facebook login to work (Google and email works fine for me). The flow is working up until I sign in to Facebook and then I do not think Shiny/Firebase is seeing a successful login. I believe I've set up Facebook correctly (my app has been approved and I see calls to the Facebook API in my Facebook admin console; appID and redirect are as expected). I believe I've set up Firebase correctly for Facebook (app ID, secret, and OAuth redirect URI are what I expect).

The "Signin with Facebook" button appears in my UI (alongside the Google and Email sign-ins). I am prompted to login to my Facebook account and then I confirm I'm not a robot. But then, Firebase/Shiny does not respond as I expect it to (I'm not successfully logged in according to Firebase and I show no new login in the Firebase admin console).

Here's my basic setup:

f <- FirebaseUI$new(persistence = "local")$
  set_providers(
    email    = TRUE,
    google   = TRUE,
    facebook = TRUE
  )$
  set_privacy_policy_url(
  "../privacy-policy/"
)$set_tos_url(
  "../terms-conditions/"
)$launch()

If observe the login with, e.g.,

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

I see good data for Google login, but fireblaze_signed_in$success returns FALSE after a Facebook login.

Any ideas on how to troubleshoot this? Any working examples that use Facebook?

Thanks!

[JohnCoene]

Sorry about that. Do any error appear in the browser console?

[dcaud]

Hi! No, no chrome devtools errors. I've also tried the example to get github signin to work (and am failing at the moment with the last example here). Are you having success outside of email and google signin?

[JohnCoene]

I haven't had to use this package for personal or business reasons for a while so I'm not sure what is happening.

The only thing I can think about is that the underlying firebase.js has to be upgraded from v9 to v11.

I will do that in another branch and let you try, is that ok?

[dcaud]

That sounds great.

…

On Fri, Jul 4, 2025 at 12:39 PM John Coene ***@***.***> wrote: *JohnCoene* left a comment (JohnCoene/firebase#86) <#86 (comment)> I haven't had to use this package for personal or business reasons for a while so I'm not sure what is happening. The only thing I can think about is that the underlying firebase.js has to be upgraded from v9 to v11. I will do that in another branch and let you try, is that ok? — Reply to this email directly, view it on GitHub <#86 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AG2WKFHA4OV2O5QNKQYAHQL3G2U4VAVCNFSM6AAAAACAZYOX4OVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZTAMZWHA2TGNJQGU> . You are receiving this because you authored the thread.Message ID: ***@***.***>

[JohnCoene]

Can you try with pak::pak("JohnCoene/firebase@feat/upgrade")

[dcaud]

So fast! Thank you.

Unfortunately, that didn't work for me. Trying to login using Facebook or Github didn't result in my Shiny app seeing any successful login. The firebase UI disappears after going thru the Facebook/Github screens.

Github
When trying to login via github, I again was not successful. A brief pop-up flashed and gave a 404:

https://wp-fairequality-simple.firebaseapp.com//firebase/init.json 404 (Not Found)

I'm unsure if the double slash (//) is a problem.

Facebook
[EDITED]
I saw this while in the modal confirming to Facebook that I wanted to log in to my app:

EZTx6Rguw6f.js:76 ErrorUtils caught an error:

Minified React error #418; visit https://react.dev/errors/418?args[]=HTML&args[]= for the full message or use the non-minified dev environment for full errors and additional helpful warnings.

Subsequent non-fatal errors won't be logged; see https://fburl.com/debugjs.
{column: '28293', clientTime: 1751940266, componentStackFrames: Array(103), extra: {…}, guardList: Array(1), …}

RUN3O3FnaIAQD1cP9icW…SB2geiUFPc8L.js:396 Uncaught Error: Minified React error #418; visit https://react.dev/errors/418?args[]=HTML&args[]= for the full message or use the non-minified dev environment for full errors and additional helpful warnings.
at Fd (RUN3O3FnaIAQD1cP9icW…UFPc8L.js:396:28293)
at Id (RUN3O3FnaIAQD1cP9icW…UFPc8L.js:396:29678)
at si (RUN3O3FnaIAQD1cP9icW…UFPc8L.js:396:93011)
at ml (RUN3O3FnaIAQD1cP9icW…FPc8L.js:396:139493)
at jl (RUN3O3FnaIAQD1cP9icW…FPc8L.js:396:138715)
at il (RUN3O3FnaIAQD1cP9icW…FPc8L.js:396:138627)
at hl (RUN3O3FnaIAQD1cP9icW…FPc8L.js:396:138481)
at Tk (RUN3O3FnaIAQD1cP9icW…FPc8L.js:396:133836)
at re (RUN3O3FnaIAQD1cP9icW…UFPc8L.js:396:34750)
at Object.applyWithGuard (EZTx6Rguw6f.js:76:10373)
at c (EZTx6Rguw6f.js:76:11107)
at MessagePort.I (EZTx6Rguw6f.js:239:1889)

Please let me know if you need more info or if you'd like me to research something.

[dcaud]

Note that I could successfully login via Google when running my app locally and using the new branch (pak::pak("JohnCoene/firebase@feat/upgrade"))

[JohnCoene]

I've made some changes to the feat/upgrade and it seems to work fine for me. Can you check again please?

Also make sure you also enabled the sign-in methods please

[dcaud]

The newest did not work for me.

I have enabled the sign in methods for Github, Twitter, Facebook, Google, and Email.

Google and Email work, but not the others. Hitting the Github button, for example, prompts the pop-up from Github, I verify that I want to give access to the app, and then it send me to a blank page in the Shiny app. A similar flow happens for Facebook. I can see on the Facebook developer app page that Facebook is seeing a request for authorization (by looking, e.g., at the endpoint access quantity: gr:get:User)

I wonder how to see what exactly the different providers return -- If Google and email works, it seems that the likely problem is in what kind of data is sent back from the provider after a login attempt.

I am using the below, which is the demo app in your library except I have removed the providers I have not setup:

library(shiny)
library(firebase)

ui <- fluidPage(
  useFirebase(),
  firebaseUIContainer(),
  reqSignin(actionButton("signout", "Sign out")),
  uiOutput("msg"),
  plotOutput("plot")
)

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

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

  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)

[JohnCoene]

Ok but it does present an error, with GitHub at least

[dcaud]

Interesting. I am not seeing that error. But I am getting different kinds of responses depending on what browser/device I am using. I've tried to clear all cache and work in an incognito window. What I consistently get in incognito is a blank page in the Shiny app after going thru the social sign-in pop-ups.

[dcaud]

This hints at an issue:

Firebase: An account already exists with the same email address but different sign-in credentials. Sign in using a provider associated with this email address. (auth/account-exists-with-different-credential).

I was able to see this message when I tried a stripped down version that didn't use the R firebase library (I'm cleaning up that version and will post here ASAP so you can see what I see) .

Perhaps we can handle that scenario gracefully in the firebase library?

[dcaud]

Below is a working app which shows this alert when I try to login via github or facebook:

Firebase: An account already exists with the same email address but different sign-in credentials. Sign in using a provider associated with this email address. (auth/account-exists-with-different-credential).

This will likely will only occur if your github/facebook accounts shares the same email as your google account!

I wonder if the solution is to handle this by catching this error code (auth/account-exists-with-different-credential) and handling it like discussed in this stackoverflow issue here.

Relatedly, I wonder if passing all the firebase errors back to shiny and logging them would help troubleshooting in general.

library(shiny)
library(jsonlite)


firebase_config <- list(
  apiKey = Sys.getenv("FIREBASE_API_KEY"),
  authDomain = Sys.getenv("FIREBASE_AUTH_DOMAIN"),
  projectId = Sys.getenv("FIREBASE_PROJECT_ID")
)

js_config <- sprintf(
  "window.firebaseConfig = %s;",
  toJSON(firebase_config, auto_unbox = TRUE)
)

firebase_js <- '
<script src="https://www.gstatic.com/firebasejs/10.12.2/firebase-app-compat.js"></script>
<script src="https://www.gstatic.com/firebasejs/10.12.2/firebase-auth-compat.js"></script>
<script>
  if(window.firebaseConfig && !window.firebase.apps?.length){
    firebase.initializeApp(window.firebaseConfig);
  }
  var auth = firebase.auth();

  auth.onAuthStateChanged(function(user) {
    if(user) {
      Shiny.setInputValue("firebase_user", {
        uid: user.uid,
        displayName: user.displayName,
        email: user.email,
        provider: user.providerData[0]?.providerId
      }, {priority: "event"});
    } else {
      Shiny.setInputValue("firebase_user", null, {priority: "event"});
    }
  });

  document.addEventListener("DOMContentLoaded", function(){
    var gbtn = document.getElementById("login_btn_google");
    if(gbtn){
      gbtn.onclick = function(){
        var provider = new firebase.auth.GoogleAuthProvider();
        auth.signInWithPopup(provider)
          .catch(function(error){ alert(error.message); });
      };
    }
    var gitbtn = document.getElementById("login_btn_github");
    if(gitbtn){
      gitbtn.onclick = function(){
        var provider = new firebase.auth.GithubAuthProvider();
        auth.signInWithPopup(provider)
          .catch(function(error){ alert(error.message); });
      };
    }
    var fbbtn = document.getElementById("login_btn_facebook");
    if(fbbtn){
      fbbtn.onclick = function(){
        var provider = new firebase.auth.FacebookAuthProvider();
        auth.signInWithPopup(provider)
          .catch(function(error){ alert(error.message); });
      };
    }
    var logoutbtn = document.getElementById("logout_btn");
    if(logoutbtn){
      logoutbtn.onclick = function(){ auth.signOut(); };
    }
  });
</script>
'

ui <- fluidPage(
  tags$head(
    tags$script(HTML(js_config)),
    HTML(firebase_js)
  ),
  h2("Firebase Auth Demo (No R package)"),
  actionButton("login_btn_google", "Sign in with Google"),
  actionButton("login_btn_github", "Sign in with GitHub"),
  actionButton("login_btn_facebook", "Sign in with Facebook"),
  actionButton("logout_btn", "Sign out"),
  uiOutput("msg"),
  uiOutput("conditional_plot")
)

server <- function(input, output, session) {
  output$msg <- renderUI({
    user <- input$firebase_user
    if (!is.null(user)) {
      h4(sprintf("Welcome, %s (%s, via %s)", user$displayName, user$email, user$provider))
    } else {
      h4("Not signed in")
    }
  })

  output$conditional_plot <- renderUI({
    if (is.null(input$firebase_user)) {
      div(
        style = "color: #c00; font-size: 1.2em; margin: 30px 0;",
        "SIGN IN TO SEE PLOT"
      )
    } else {
      plotOutput("plot")
    }
  })

  output$plot <- renderPlot({
    req(input$firebase_user)
    plot(cars)
  })
}

shinyApp(ui, server)

[dcaud]

Setting "Link accounts that use the same email" gives rise to this issue (see screen shot below). But I believe I do want to link accounts and handle it as mentioned in the stackoverflow answer mentioned in my message above:

[JohnCoene]

I'm sorry I really can't reproduce this, linking accounts is what is done by default as it is the sensible thing to do. I have all my accounts on the same email address and I can login fine from all providers I have tested so I'm not sure what's going on.

Note that we do log everything already