R/zzz_viztest.R

In leaflet: Create Interactive Web Maps with the JavaScript 'Leaflet' Library

#' 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