hutilscpp_rev <- function(x) {
if (!length(x)) {
return(x)
}
# to avoid slowness on certain altrep vectors
if (is_altrep(x)) {
return(seq.int(x[length(x)], x[1]))
}
x[length(x):1L]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.