ClaytonJY

# test function
f <- function(x) {
  if (missing(x)) {
    stop("error, Will Robinson")
  } else {
    x
  }
}

f(1)  # 1

ClaytonJY

library(rlang)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 

ClaytonJY

Keybase proof

I hereby claim:

• I am claytonjy on github.
• I am claytonjy (https://keybase.io/claytonjy) on keybase.
• I have a public key ASAaodN6sNLW7mO0wHrRnhOVEUExdgEY99aJVvwWrZCiWAo

To claim this, I am signing this object:

ClaytonJY

# x is assumed to be a numeric vector
# output will be TRUE if both that value and the previous value are strictly below the threshold, FALSE otherwise
f <- function(x, threshold) {
  less_than <- (x < threshold)
  
  less_than & c(FALSE, !diff(less_than))
}


#### usage ####