R/pad_blinks.R

pad_blinks <- function(x, pad) {
  N <- length(x)
  out <- rep(FALSE, N)
  for (i in which(x)) out[pmax(i-pad,1):pmin(i+pad,N)] <- TRUE
  out
}
RyanHope/gazetools documentation built on May 9, 2019, 10:38 a.m.