moves a cloud file from the S3 bucket only available via ScienceBase authenticated services to a public S3 bucket.
Examples
if (FALSE) {
res <- item_create(user_id(), "testing 123")
cat("foo bar", file = "foobar.txt")
item_upload_cloud(res$id, "foobar.txt")
item_publish_cloud(res$id, "foobar.txt")
}