replace_consecutive {atable} | R Documentation |
If x[i+1]=x[i]
then x[i+1]
is replaced by by
for i=1,...length(x)-1
.
replace_consecutive(x, by = "", fun_for_identical = base::identical)
x |
A character or factor. |
by |
A character with length 1. |
fun_for_identical |
A function with two arguments called |
The =
is defined by function identical
by default.
This function can be changed by argument fun_for_identical
A character, same length as x
, now with consecutives replaced by by
.
If length(x) < 2
, x is returned unchanged.
x <- rep(c('a','b','c','d'), times=c(2,4,1,3)) x ## Not run: 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 ## Not run: replace_consecutive(x, by="99") ## Not run: replace_consecutive(x, by="99", fun_for_identical = fun_for_identical)