Fodder for a gd_ls()
function.
devtools::load_all("..") gs_auth(file.path("..", "tests", "testthat", "googlesheets_token.rds")) drfiles <- httr::GET(.state$gd_base_url_files_v3, get_google_token()) httr::status_code(drfiles) drfiles <- content_as_json_UTF8(drfiles) str(drfiles) head(drfiles$files)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.