# NOT RUN {
## create a Team Drive
td <- teamdrive_create("I love themes!")
## see the themes available to you
themes <- drive_user(fields = "teamDriveThemes")$teamDriveThemes
purrr::map_chr(themes, "id")
## cycle through various themes for this Team Drive
td <- teamdrive_update(td, themeId = "bok_choy")
td <- teamdrive_update(td, themeId = "cocktails")
## clean up
teamdrive_rm(td)
# }
Run the code above in your browser using DataLab