d <- 5/0
if ( !is.finite(d) ) {
  # it is Inf, -Inf, or NaN
}