如何在shinydashboard中使用re-CAPTCHA？

library(shiny)
library(shinydashboard)
library(shinycssloaders)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    div(id = "captcha"),
    actionButton("submit", "Submit")
  )
)

server <- function(input, output, session) {
  observeEvent(input$submit, {
    # Check if user passed re-CAPTCHA validation
    if (js$isCaptchaValid()) {
      # User has passed the validation
      # Perform your desired action here
      # ...
    } else {
      # User has failed the validation
      # Display an error message or take appropriate action
      # ...
    }
  })

  # Render the re-CAPTCHA widget
  observe({
    withSpinner({
      shinyjs::runjs("
        grecaptcha.ready(function() {
          grecaptcha.execute('YOUR_RECAPTCHA_KEY', {action: 'homepage'}).then(function(token) {
            $('#captcha').html('<div class=\"g-recaptcha\" data-sitekey=\"YOUR_RECAPTCHA_KEY\" data-callback=\"verifyCaptcha\"></div>');
          });
        });
        verifyCaptcha = function() {
          Shiny.setInputValue('captcha', TRUE, {priority: 'event'});
        };
      ")
    })
  })
}

shinyApp(ui, server)