## ----message=FALSE------------------------------------------------------------
library(googleCloudStorageR)

## ----eval=FALSE---------------------------------------------------------------
# project_id <- daiR::get_project_id()

## ----eval = FALSE-------------------------------------------------------------
# gcs_list_buckets(project_id)

## ----eval = FALSE-------------------------------------------------------------
# gcs_create_bucket("example-bucket-34869", project_id, location = "eu")

## ----eval=FALSE---------------------------------------------------------------
# gcs_list_buckets(project_id)

## ----eval=FALSE---------------------------------------------------------------
# gcs_list_objects()

## ----eval=FALSE---------------------------------------------------------------
# setwd(tempdir())
# write.csv(mtcars, "mtcars.csv")
# gcs_upload("mtcars.csv")

## ----eval=FALSE---------------------------------------------------------------
# gcs_list_objects()

## ----eval=FALSE---------------------------------------------------------------
# gcs_upload("mtcars.csv", name = "testfile.csv")

## ----eval=FALSE---------------------------------------------------------------
# library(purrr)
# write.csv(iris, "iris.csv")
# my_files <- list.files(pattern = "*.csv")
# map(my_files, gcs_upload)

## ----eval=FALSE---------------------------------------------------------------
# map(my_files, ~ gcs_upload(.x, name = basename(.x)))

## ----eval=FALSE---------------------------------------------------------------
# gcs_list_objects()

## ----eval=FALSE---------------------------------------------------------------
# gcs_upload_set_limit(upload_limit = 20000000L)

## ----eval=FALSE---------------------------------------------------------------
# gcs_get_object("iris.csv", saveToDisk = "iris.csv")

## ----eval=FALSE---------------------------------------------------------------
# gcs_get_object("mtcars.csv", saveToDisk = "/path/to/mtcars_downloaded.csv")

## ----eval=FALSE---------------------------------------------------------------
# contents <- gcs_list_objects()
# map(contents$name, ~ gcs_get_object(.x, saveToDisk = .x))

## ----eval=FALSE---------------------------------------------------------------
# map(contents$name, ~ gcs_get_object(.x, saveToDisk = basename(.x))

## ----eval=FALSE---------------------------------------------------------------
# gcs_delete_object("mtcars.csv")

## ----eval=FALSE---------------------------------------------------------------
# contents <- gcs_list_objects()
# map(contents$name, gcs_delete_object)

## ----eval=FALSE---------------------------------------------------------------
# empty_bucket <- function() {
#   contents <- googleCloudStorageR::gcs_list_objects()
#   lapply(contents$name, googleCloudStorageR::gcs_delete_object)
# }

## ----echo=FALSE, message=FALSE, warning=FALSE, eval=FALSE---------------------
# # cleanup
# library(fs)
# file_delete(dir_ls(tempdir(), glob = "*.csv"))