#' Add a control to the map
#'
#' @inheritParams add_layer
#' @param name name of the control
#' @param position position on the map
#' @param ... options passed to the control
#' @export
add_control <- function(map, name = "NavigationControl", position = "top-left", ...) {
invoke_method(map, "addControl", name, list(...), position)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.