# NOT RUN {
if (gs4_has_token()) {
# see all your Sheets
gs4_find()
# see 5 Sheets, prioritized by creation time
x <- gs4_find(order_by = "createdTime desc", n_max = 5)
x
# hoist the creation date, using other packages in the tidyverse
# x %>%
# tidyr::hoist(drive_resource, created_on = "createdTime") %>%
# dplyr::mutate(created_on = as.Date(created_on))
}
# }
Run the code above in your browser using DataLab