knitr::opts_chunk$set(echo = TRUE)
globals.R
codelibrary(googlesheets) ## prepare the OAuth token and set up the target sheet: ## - do this interactively ## - do this EXACTLY ONCE # shiny_token <- gs_auth() # authenticate w/ your desired Google identity here # saveRDS(shiny_token, "shiny_app_token.rds") # ss$sheet_key ## if you version control your app, don't forget to ignore the token file! ## e.g., put it into .gitignore googlesheets::gs_auth(token = "shiny_app_token.rds", cache = FALSE) sAUC_sheet <- gs_title("sAUC Response") sheet_key <- sAUC_sheet$sheet_key ss <- googlesheets::gs_key(sheet_key)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.