if (FALSE) {
data(iris)
file_id <- write_civis_file(iris)
read_civis(file_id)
file_id <- write_civis_file("path/to/my.csv")
read_civis(file_id)
read_civis(file_id, using = readr::read_csv)
file_id <- write_civis_file(list(a = 1))
read_civis(file_id, using = readRDS)
# Does not expire
file_id <- write_civis_file(iris, expires_at = NULL)
# Expires on a given date and time
file_id <- write_civis_file(iris, expires_at = "2030-01-01")
file_id <- write_civis_file(iris, expires_at = "12:00:00")
file_id <- write_civis_file(iris, expires_at = "2030-01-01 12:00:00")
# Upload a large file in parallel.
library(future)
plan(multisession)
file_id <- write_civis_file("my_large_file")
}
Run the code above in your browser using DataLab