knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
The goal of shinyCAPTCHA is to provide google reCAPTCHA to Shiny apps. reCAPTCHA is a tool to prevent computers from spamming your websites forms.
You can install shinyCAPTCHA from github with:
# install.packages("devtools") devtools::install_github("CannaData/shinyCAPTCHA")
You can view example here
library(shiny) library(shinyCAPTCHA) ui <- fluidPage( recaptchaUI("test", sitekey = "6LeIxAcTAAAAAJcZVRqyHh71UMIEGNQ_MXjiZKhI"), uiOutput("humansOnly") ) server <- function(input, output, session) { result <- callModule(recaptcha, "test", secret = "6LeIxAcTAAAAAGG-vFI1TnRWxMZNFuojJ4WifJWe") output$humansOnly <- renderUI({ req(result()$success) tags$h1("For human eyes only!") }) } shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.