# NOT RUN {
# create a shared drive
sd <- shared_drive_create("I love themes!")
# see the themes available to you
themes <- drive_about()$driveThemes
purrr::map_chr(themes, "id")
# cycle through various themes for this shared drive
sd <- shared_drive_update(sd, themeId = "bok_choy")
sd <- shared_drive_update(sd, themeId = "cocktails")
# clean up
shared_drive_rm(sd)
# }
Run the code above in your browser using DataLab