R/num2int.R

In dpcR: Digital PCR Analysis

#' Convert numeric to integer 
#' 
#' Converts \code{numeric} values to positive \code{integer}s with a warning. 
#' 
#' @param x an \code{numeric} vector
#' @details num2int uses \code{\link[base]{as.integer}} functionality.
#' @keywords manip
#' @export
#' @examples
#' suppressWarnings(num2int(pi) == 3L)

# Test if x is a positive integer value
# warn defines the warning level
num2int <- function (x) {
  ## version 0.5: make 'x' unique to remove coercion error from R-devel 
  x <- unique(x)
  #add check if numeric
  if (x != abs(round(x)) || x <= 0) {
    warning(paste(x, " was not a positive integer (e.g., 1, 11, 23).
                  Automatically tried to convert ", x, " to integer"))
  }
  abs(as.integer(x))
}