# NOT RUN {
if (sheets_has_token()) {
# see all your Sheets
sheets_find()
# see 5 Sheets, prioritized by creation time
x <- sheets_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