R/sample_safe.R

In DIETCOST: Calculate the Cost and Environmental Impact of a Ideal Diet

#' Safe sampling
#'
#' Safely extracts a random unitary sample from a vector.
#' @param x Vector.
#' @return Random sample.
#' @examples 
#'intake <- DIETCOST::sample_safe(c(10,25,37,52,100));
#' @export
sample_safe <- function(x) {
  if (length(x) <= 1) {
    return(x)
  } else {
    return(sample(x,1))
  }
}