Вам не нужно dplyr:
fun <- function(x) {
test <- diff(x) > 0
y <- cumsum(test)
c(0, y - cummax(y * !test))
}
fun(df$a)
[1] 0 1 2 3 0 1 2 3 4 5 6 0 1 0
Вы посмотрели на класс URI?
http://docs.oracle.com/javase/7/docs/api/java/net/URI.html#normalize()
Вы можете сделать это с помощью структуры Restlet , используя Reference.normalize ()
. Вы также должны иметь возможность довольно удобно удалять элементы, которые вам не нужны, с помощью этого класса.