# NOT RUN {
## Upload file to publish
file <- drive_upload(
drive_example("chicken.csv"),
type = "spreadsheet"
)
## Publish file
file <- drive_publish(file)
file$published
## Unpublish file
file <- drive_unpublish(file)
file$published
## Clean up
drive_rm(file)
# }
Run the code above in your browser using DataLab