Allow count decimals to work with integer input

[al-obrien]

If the input is an integer, then just return 0s

count_decimals <- function(x) {
  if(inherits(x, 'integer')) return(vector(mode = 'numeric', length = length(x)))
}