x <- rep(c('a','b','c','d'), times=c(2,4,1,3))
x
if (FALSE) replace_consecutive(x)
# NA should not be identical. So change fun_for_identical
fun_for_identical <- function(x,y) !is.na(x) && !is.na(y) && identical(x,y)
x <- c(1,1,3,3,NA,NA, 4)
x
if (FALSE) replace_consecutive(x, by="99")
if (FALSE) replace_consecutive(x, by="99", fun_for_identical = fun_for_identical)
Run the code above in your browser using DataLab