inst/embed/ui.R

library(shiny)
library(googleAuthR)

## ui.R
ui <- fluidPage(
  gar_auth_jsUI("js_token"),
  textInput("url", "Enter URL"),
  actionButton("submit", "Shorten URL"),
  textOutput("short_url")
)
yinscapital/googleAuthR-reference documentation built on May 3, 2019, 4:31 p.m.