{firebase}的作者在包示例/文档中显示了how to use the pre-built UI。
我想为我正在做的一个R Shiny项目构建我自己的登录/注册表单。如何将其链接到firebase，以便我不必使用预构建的登录表单？
我正在使用电子邮件认证方法。
这是我的登录/注册表：
x1c 0d1x的数据

global.R

library(shiny)

字符串

ui.R

ui <- bslib::page(
  title = "Custom Sign In/Up Form",
  theme = bslib::bs_theme(version = 5),
  lang = "en",
  tags$div(
    class = "container",
    tabsetPanel(
      id = "auth_form",
      type = "hidden",
      tabPanelBody(
        value = "signin",
        tags$div(
          class = "d-flex justify-content-center align-items-center vh-100",
          tags$div(
            mod_auth_form_ui(id = "signin"),
            tags$p(
              class = "mt-2",
              "First time?",
              actionLink(inputId = "go_to_signup", label = "Sign up here")
            )
          )
        )
      ),
      tabPanelBody(
        value = "signup",
        tags$div(
          class = "d-flex justify-content-center align-items-center vh-100",
          tags$div(
            mod_auth_form_ui(id = "signup", type = "signup"),
            tags$p(
              class = "mt-2",
              "Already have an account?",
              actionLink(inputId = "go_to_signin", label = "Sign in here")
            )
          )
        )
      )
    )
  )
)

型

server.R

server <- \(input, output, session) {
  observeEvent(input$go_to_signup, {
    freezeReactiveValue(x = input, name = "auth_form")
    updateTabsetPanel(
      session = session,
      inputId = "auth_form",
      selected = "signup"
    )
  })
  observeEvent(input$go_to_signin, {
    freezeReactiveValue(x = input, name = "auth_form")
    updateTabsetPanel(
      session = session,
      inputId = "auth_form",
      selected = "signin"
    )
  })
}

型

R/mod_auth_form_ui.R

#' Auth form module UI
#'
#' @param id Module id
#' @param type Type of form to create. Either "signin" (default) or "signup".
#' @return [shiny::tags$form()]
mod_auth_form_ui <- \(id, type = "signin") {
  ns <- NS(id)
  email_input_tag_q <- textInput(
    inputId = ns("email"),
    label = "Email address",
    placeholder = "[email protected]"
  ) |>
    htmltools::tagQuery()
  email_input_tag_q$find("input")$removeAttrs("type")$addAttrs("type" = "email")
  email_input <- email_input_tag_q$allTags()
  password_input <- passwordInput(inputId = ns("password"), label = "Password")
  username_input <- textInput(
    inputId = ns("username"),
    label = "First & last name",
    placeholder = "John Doe"
  )
  submit_btn <- actionButton(
    inputId = ns("submit"),
    label = "Submit",
    class = "btn btn-primary",
    type = "submit"
  )
  tags$form(
    tags$div(class = "mb-3", email_input),
    if (type == "signup") {
      tags$div(class = "mb-3", username_input)
    },
    tags$div(class = "mb-3", password_input),
    submit_btn
  )
}

型