# NOT RUN {
# }
# NOT RUN {
## something to download
## data.frame that defaults to be called "mtcars.csv"
gcs_upload(mtcars)
## get the mtcars csv from GCS, convert it to an R obj
gcs_get_object("mtcars.csv")
## get the mtcars csv from GCS, save it to disk
gcs_get_object("mtcars.csv", saveToDisk = "mtcars.csv")
## default gives a warning about missing column name.
## custom parse function to suppress warning
f <- function(object){
suppressWarnings(httr::content(object, encoding = "UTF-8"))
}
## get mtcars csv with custom parse function.
gcs_get_object("mtcars_meta.csv", parseFunction = f)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab