experiment/old/new_subset.R

In dipterix/lazyarray: Persistent Large Data Array with Lazy-Loading on Demand

devtools::load_all()
arr <- lazyarray:::as.lazyarray(array(1:prod(1:4), 1:4))
a <- function(i, ...) {
  files = arr$get_partition_fpath()
  lazyarray:::subsetFST(files, environment(), dim(arr), getSexpType(0.1))
}
dipsaus::lapply_async2(1:4, function(i, ...){
  a(,,,1)
  lazyarray:::getLazyThread()
})


  

a(, , , 1)