Squish infinite values to range

squish_infinite(x, range = c(0, 1))

Arguments

x	numeric vector of values to manipulate.
range	numeric vector of length two giving desired output range.

squish_infinite(c(-Inf, -1, 0, 1, 2, Inf))
#> [1]  0 -1  0  1  2  1