Feature request: rescale transformation about scales HOT 2 OPEN

transform_rescale <- function(to = c(0, 1), from = c(0, 1)) {
  force(to)
  force(from)
  new_transform(
    "rescaling",
    transform = function(x) rescale(x, to = to, from = from),
    inverse   = function(x) rescale(x, to = from, from = to),
    d_transform = function(x) rep(diff(to) / diff(from), length(x)),
    d_inverse = function(x) rep(diff(from) / diff(to), length(x))
  )
}