#' Visual Testing scripts for vistest
#'
#' Visual testing examples to be used by the vistest package.
#'
#' @keywords internal
#' @name aaa-test-viztest
#' @rdname aaa-test-viztest
#' @examples
#'
#'
#'
#' \donttest{
#'
#'
#' ### Start addGeoJSON properties - https://github.com/rstudio/leaflet/pull/625
#' polygon = list(
#' type = "Polygon",
#' coordinates = list(
#' list(
#' c(8.330469, 48.261570),
#' c(8.339052, 48.261570),
#' c(8.339052, 48.258227),
#' c(8.330469, 48.258227),
#' c(8.330469, 48.261570)
#' )
#' )
#' )
#'
#' # should produce an orange-ish rectangle around `Ramsel`
#' leaflet() %>%
#' addTiles() %>%
#' addGeoJSON(polygon, color="#F00") %>%
#' setView(lng = 8.330469, lat = 48.26157, zoom = 15)
#' ### End PR #625
#'
#'
#' } # end donttest
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.