diff --git a/.Rbuildignore b/.Rbuildignore index 6996e7a..57bda0e 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -3,3 +3,5 @@ ^seaice\.Rproj$ ^README\.Rmd$ ^inst/examples/*.gif$ +^data-raw$ +^*.tar.gz$ diff --git a/.gitignore b/.gitignore index 09a72cb..f236a15 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,5 @@ .Rhistory .RData inst/doc +data-raw/ice.rds +ice_data-raw.tar.gz diff --git a/data-raw/BULK.R b/data-raw/BULK.R new file mode 100644 index 0000000..bd58c62 --- /dev/null +++ b/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") + +