# NOT RUN {
## Create a file and put it in the trash.
file <- drive_upload(drive_example("chicken.txt"), "chicken-trash.txt")
drive_trash("chicken-trash.txt")
## Confirm it's in the trash
drive_find(trashed = TRUE)
## Remove it from the trash and confirm
drive_untrash("chicken-trash.txt")
drive_find(trashed = TRUE)
## Clean up
drive_rm("chicken-trash.txt")
# }
Run the code above in your browser using DataLab