library(shiny)
library(googleAuthR)
## ui.R
ui <- fluidPage(title = "googleAuthR Shiny Demo",
googleAuthUI("loginButton"),
textInput("url", "Enter URL"),
actionButton("submit", "Shorten URL"),
textOutput("short_url")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.