R/data.R

In morloclib/rbase: The morloc prelude for R

# _unpack_map R :: unpack => Map a b -> ([a],[b]);
mlc_unpack_map <- function(x){
  list(names(x), unname(x))
}

# _pack_map :: pack => ([a],[b]) -> Map a b;
mlc_pack_map <- function(xs){
  names(xs[[2]]) <- xs[[1]]  
  as.list(xs[[2]])
}

morloc_packUnit <- function(x) {
  NULL
}

morloc_unpackUnit <- function(x){
  1
}