dataW <- function(x){
if(x==1){
library(googlesheets)
token <- token
gs_auth(token = token)
b <- gs_ls()
b
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.