R/empty.R

Defines functions `empty`

`empty` <-
function(x)
{
  if(!is.null(x))
  {
    result <- x
    result[] <- NA
  }
  else
    result <- NULL
  
  return(result)
}
aparamon/cmrutils documentation built on May 5, 2019, 6:54 p.m.