bulk data snapshot

.Rbuildignore

@@ -3,3 +3,5 @@
 ^seaice\.Rproj$
 ^README\.Rmd$
 ^inst/examples/*.gif$
+^data-raw$
+^*.tar.gz$

.gitignore

@@ -2,3 +2,5 @@
 .Rhistory
 .RData
 inst/doc
+data-raw/ice.rds
+ice_data-raw.tar.gz

data-raw/BULK.R

@@ -0,0 +1,19 @@
+library(furrr)
+plan(multicore)
+s <- icefiles()
+n <- icefiles(hemisphere = "north")
+south <- future_map(s$fullname, readBin, what = "raw", n = 332 * 316)
+north <- future_map(n$fullname, readBin, what = "raw", n = 448 * 304)
+ice <- tibble::tibble(date = s$date, south = south, north = north)
+saveRDS(ice, "data-raw/ice.rds")
+
+## TODO: implement read since a year ago (make sure we get updates)
+##   smarter, keep the file name too and invalidate on that
+
+archivefile <- "ice_data-raw.tar.gz"
+unlink(archivefile)
+system(glue::glue("tar cvzf {archivefile} data-raw"))
+library(piggyback)
+pb_upload(archivefile, tag = "v0.1.0")
+
+