# NOT RUN {
# Create a file and put it in the trash.
file <- drive_example_remote("chicken.txt") %>%
drive_cp("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