#' Remove reverts from page_revisions table
#'
#' @param revisions A data-frame produced with \code{page_revisions}
#'
#' @return
#' @export
#'
remove_reverts <- function (revisions) {
start <- duplicated(revisions$sha1, fromLast = TRUE) %>%
which
end <- duplicated(revisions$sha1) %>% which
if(length(start) > 0) {
reverted <- lapply(1:length(end), function(i) {
seq(start[i], end[i], by = 1)
}) %>% lapply(function(x) {
x[c(-1, -length(x))]
}) %>% unlist
revisions[-c(end, reverted), ]
} else {
revisions
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.