viztest for #625 (#632)

* viztest for #625

* set name to aaa-test-viztest for tests. Add PR number comment

* add keyword internal and remove  from exec

Author: schloerke

.github/PULL_REQUEST_TEMPLATE.md

@@ -47,5 +47,7 @@ Brief description of the solution
 
 PR task list:
 - [ ] Update NEWS
-- [ ] Add tests (if appropriate)
+- [ ] Add tests (where appropriate)
+  - R code tests: `tests/testthat/`
+  - Visual tests: `R/zzz_viztest.R`
 - [ ] Update documentation with `devtools::document()`

R/zzz_viztest.R

@@ -0,0 +1,38 @@
+#' 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

man/aaa-test-viztest.Rd

@@ -1,4 +1,4 @@
-devtools::install_github("schloerke/viztest")
+remotes::install_github("schloerke/viztest")
 # source("scripts/viztest.R")