trim numerical vector?

[einarhjorleifsson]

worth a thought?? in line with between. and str_trim. below also would return any NA's

trim <- function(x, left, right) {

  # test if value is a number
  # ...

  if(missing(left)) left = min(x, na.rm = TRUE)
  if(missing(right)) right = max(x, na.rm = TRUE)

  x <- ifelse(x < left, left, x)
  x <- ifelse(x > right, right, x)

  return(x)
}

# example
data_frame(x = c(1:10, NA)) %>% 
  mutate(x1 = trim(x, 4, 6),
         x2 = trim(x, 4),
         x3 = trim(x, right = 6))

einar

[krlmlr]

@hadley: pmin(pmax(x, min_val), max_val) -- perhaps in vctrs?

[hadley]

Yeah, vctrs is the right place. Can you please move there?