inst/dockerfiles/shiny-googleAuthRdemo/shiny/ui.R

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")
)
voltek62/RsparkleR documentation built on May 19, 2019, 1:48 a.m.