is_single_positive_integer(1.0) # TRUE
is_single_positive_integer(c(1.0,2)) # FALSE
is_single_positive_integer(-1.0) # FALSE
is_single_positive_integer(0) # FALSE
is_single_positive_integer(NA) # FALSE
Run the code above in your browser using DataLab