# NOT RUN {
## create a Team Drive
td <- team_drive_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 <- team_drive_update(td, themeId = "bok_choy")
td <- team_drive_update(td, themeId = "cocktails")
## clean up
team_drive_rm(td)
# }
Run the code above in your browser using DataLab