# NOT RUN {
key <- "ccafs/ccafs-climate/data/ipcc_5ar_ciat_downscaled/rcp2_6/
2030s/bcc_csm1_1_m/10min/
bcc_csm1_1_m_rcp2_6_2030s_prec_10min_r1i1p1_no_tile_asc.zip"
(res <- cc_data_fetch(key = key))
# indexing maintains class for easier subsetting
res[1]
res[[1]]
res[1:2]
res <- cc_list_keys()
zips <- grep("\\.zip", res$Key, value = TRUE)
x <- cc_data_fetch(zips[1])
unclass(x)
cc_data_read(x[1])
cc_data_read(x[1:3])
cc_data_read(x)
library(raster)
plot(cc_data_read(x[1]))
plot(cc_data_read(x[1:3]))
# }
Run the code above in your browser using DataLab