#' clickall
#'
#' clickall web element
#' @param elems list of webelem
#' @export
clickall <- function(elems){
lapply(c(1:length(elems)),FUN=function(x){elems[[x]]$clickElement()})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.