#' Easy Access to the Original TopDom 0.0.1 and 0.0.2 Implementations
#'
#' @param version A version string.
#'
#' @return An environment containing the legacy TopDom API.
#'
#' @examples
#' TopDom::legacy("0.0.2")$TopDom
#' TopDom::legacy("0.0.1")$Detect.Local.Extreme
#'
#' @export
legacy <- function(version = c("0.0.1", "0.0.2")) {
if (version == "0.0.1") {
api <- environment(TopDom_0.0.1)
} else if (version == "0.0.2") {
api <- environment(TopDom_0.0.2)
} else {
stop("Unknown TopDom legacy version: ", sQuote(version))
}
api
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.