library(shiny)
library(googleAuthR)
## ui.R
ui <- fluidPage(
gar_auth_jsUI("js_token"),
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.