R/util.R

In mrc-ide/kelp: SeaweedFS R Client

Defines functions bin_to_object object_to_bin list_to_character `%||%`

`%||%` <- function(x, y) { # nolint
  if (is.null(x)) y else x
}

list_to_character <- function(x) {
  vapply(x, identity, character(1))
}

object_to_bin <- function(obj) {
  serialize(obj, NULL, xdr = FALSE)
}

bin_to_object <- function(bin) {
  unserialize(bin)
}