library("dplyr") library("googledrive") drive_auth("drive-token.rds")
list_of_ids <- drive_list(pattern = "test")$id[1:10] list_of_files <- list_of_ids %>% purrr::map(drive_file)
list_of_files <- list_of_files %>% purrr::map(drive_share, role = "reader", type = "anyone")
list_of_files %>% purrr::map_chr("access")
list_of_files <- list_of_files %>% purrr::map(drive_delete)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.