percent errors when multiple, separated "Infs" are given as input

[dkesh]

Using version 1.1.0

This was originally submitted as a comment to #257, but @hadley found that it was unrelated.

> percent( Inf )
[1] "Inf"
> percent( c(Inf, Inf) )
[1] "Inf" "Inf"
> percent( c(Inf, 2) )
[1] "Inf"  "200%"
> percent( c(2, Inf) )
[1] "200%" "Inf" 
> percent( c(Inf, 2, Inf) )
Error in if (smallest_diff < sqrt(.Machine$double.eps)) { : 
  missing value where TRUE/FALSE needed

[hadley]

Duplicate of #251

In the future, please use the reprex package ? That makes it easier to see both the input and the output, formatted in such a way that I can easily re-run in a local session.