diff --git a/tests/testthat.R b/tests/testthat.R
index 1a35d9c..75ec1f5 100644
--- a/tests/testthat.R
+++ b/tests/testthat.R
@@ -1,3 +1,11 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
library(testthat)
library(feedr)
diff --git a/tests/testthat/_snaps/c05_map_leaflet.md b/tests/testthat/_snaps/c05_map_leaflet.md
new file mode 100644
index 0000000..db1f4e2
--- /dev/null
+++ b/tests/testthat/_snaps/c05_map_leaflet.md
@@ -0,0 +1,48 @@
+# maps_leaflet_base return maps
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66778333, ", " 50.66909444, 50.66895556, 50.6693833), c(-120.3612389, ", " -120.3631833, -120.3624278, -120.3634889), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2200\", \"Logger: 2700\", \"Logger: 2100\", ", " \"Logger: 2400\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\")))), limits = list(lat = c(50.66778333, ", " 50.6693833), lng = c(-120.3634889, -120.3612389))), leafletData = structure(list(", " logger_id = structure(c(2L, 4L, 1L, 3L), levels = c(\"2100\", ", " \"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66778333, ", " 50.66909444, 50.66895556, 50.6693833), lon = c(-120.3612389, ", " -120.3631833, -120.3624278, -120.3634889)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
+# map_leaflet() returns summary map
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66895556, ", " 50.66778333, 50.6693833, 50.66909444), c(-120.3624278, ", " -120.3612389, -120.3634889, -120.3631833), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2100\", \"Logger: 2200\", \"Logger: 2400\", ", " \"Logger: 2700\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\"))), list(method = \"addCircleMarkers\", ", " args = list(c(50.66895556, 50.66778333, 50.6693833, ", " 50.66909444), c(-120.3624278, -120.3612389, -120.3634889, ", " -120.3631833), c(50, 38.3443147765464, 28.5993249176067, ", " 10), c(\"presence-1\", \"presence-2\", \"presence-3\", ", " \"presence-4\"), \"Time\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"black\", weight = 1, opacity = 1, ", " fill = TRUE, fillColor = c(\"#FF0000\", \"#FF6D00\", ", " \"#FFB200\", \"#FFFF00\"), fillOpacity = 0.8), NULL, ", " NULL, c(\"39\", \"28\", \"22\", \"14\"), NULL, NULL, ", " list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addLegend\", ", " args = list(list(colors = structure(\"#FFFF00 , #FFF700 3.13124583610926%, #FFC400 23.1179213857428%, #FF9000 43.1045969353764%, #FF5E00 63.09127248501%, #FF2B00 83.0779480346436%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"15\", \"20\", \"25\", \"30\", ", " \"35\"), class = \"AsIs\"), na_color = NULL, na_label = \"NA\", ", " opacity = 1, position = \"topright\", type = \"numeric\", ", " title = \"Time\", extra = list(p_1 = 0.0313124583610926, ", " p_n = 0.830779480346436), layerId = NULL, className = \"info legend\", ", " group = NULL))), list(method = \"hideGroup\", args = list(", " \"Loggers\")), list(method = \"showGroup\", args = list(", " \"Loggers\")), list(method = \"removeLayersControl\", ", " args = list()), list(method = \"addLayersControl\", ", " args = list(c(\"Satellite\", \"Terrain\", \"Open Street Map\", ", " \"Black and White\"), c(\"Loggers\", \"Time\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\"))), ", " list(method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, -120.3612389", " ), lat = c(50.66895556, 50.66778333)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3624278, ", " 50.66778333, -120.3612389, 50.66895556), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2200\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3634889), lat = c(50.66778333, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66778333, -120.3612389, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3634889, -120.3631833), lat = c(50.6693833, ", " 50.66909444)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66909444, -120.3631833, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2400_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFA900\", weight = 23.3333333333333, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFA900\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"2\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3624278, -120.3634889), lat = c(50.66895556, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66895556, -120.3624278, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF5500\", weight = 36.6666666666667, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF5500\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"3\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3624278, -120.3631833), lat = c(50.66895556, ", " 50.66909444)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66895556, -120.3624278, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"4\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3631833), lat = c(50.66778333, ", " 50.66909444)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66778333, -120.3612389, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"4\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addLegend\", ", " args = list(list(colors = structure(\"#FFFF00 , #FFFF00 0%, #FFD400 16.6666666666667%, #FFA900 33.3333333333333%, #FF7F00 50%, #FF5500 66.6666666666667%, #FF2B00 83.3333333333333%, #FF0000 100%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"1.0\", \"1.5\", \"2.0\", \"2.5\", ", " \"3.0\", \"3.5\", \"4.0\"), class = \"AsIs\"), na_color = NULL, ", " na_label = \"NA\", opacity = 1, position = \"topright\", ", " type = \"numeric\", title = \"Path use\", extra = list(", " p_1 = 0, p_n = 1), layerId = NULL, className = \"info legend\", ", " group = NULL))), list(method = \"hideGroup\", args = list(", " \"Loggers\")), list(method = \"showGroup\", args = list(", " \"Loggers\")), list(method = \"removeLayersControl\", ", " args = list()), list(method = \"addLayersControl\", ", " args = list(c(\"Satellite\", \"Terrain\", \"Open Street Map\", ", " \"Black and White\"), c(\"Loggers\", \"Time\", \"Path use\"", " ), list(collapsed = TRUE, autoZIndex = TRUE, position = \"topright\")))), ", " limits = list(lat = c(50.66778333, 50.6693833), lng = c(-120.3634889, ", " -120.3612389))), leafletData = structure(list(logger_id = structure(1:4, levels = c(\"2100\", ", "\"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66895556, ", "50.66778333, 50.6693833, 50.66909444), lon = c(-120.3624278, ", "-120.3612389, -120.3634889, -120.3631833)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
+---
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66895556, ", " 50.66778333, 50.6693833, 50.66909444), c(-120.3624278, ", " -120.3612389, -120.3634889, -120.3631833), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2100\", \"Logger: 2200\", \"Logger: 2400\", ", " \"Logger: 2700\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\"))), list(method = \"addCircleMarkers\", ", " args = list(c(50.66895556, 50.66778333, 50.6693833, ", " 50.66909444), c(-120.3624278, -120.3612389, -120.3634889, ", " -120.3631833), c(50, 38.3443147765464, 28.5993249176067, ", " 10), c(\"presence-1\", \"presence-2\", \"presence-3\", ", " \"presence-4\"), \"Time\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"black\", weight = 1, opacity = 1, ", " fill = TRUE, fillColor = c(\"#FF0000\", \"#FF6D00\", ", " \"#FFB200\", \"#FFFF00\"), fillOpacity = 0.8), NULL, ", " NULL, c(\"8\", \"6\", \"4\", \"3\"), NULL, NULL, list(", " interactive = FALSE, permanent = FALSE, direction = \"auto\", ", " opacity = 1, offset = c(0, 0), textsize = \"10px\", ", " textOnly = FALSE, className = \"\", sticky = TRUE), ", " NULL)), list(method = \"addLegend\", args = list(", " list(colors = structure(\"#FFFF00 , #FFF700 3.13124583610926%, #FFC400 23.1179213857428%, #FF9000 43.1045969353764%, #FF5E00 63.09127248501%, #FF2B00 83.0779480346436%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"3\", \"4\", \"5\", \"6\", \"7\"), class = \"AsIs\"), ", " na_color = NULL, na_label = \"NA\", opacity = 1, ", " position = \"topright\", type = \"numeric\", title = \"Time\", ", " extra = list(p_1 = 0.0313124583610926, p_n = 0.830779480346436), ", " layerId = NULL, className = \"info legend\", group = NULL))), ", " list(method = \"hideGroup\", args = list(\"Loggers\")), list(", " method = \"showGroup\", args = list(\"Loggers\")), list(", " method = \"removeLayersControl\", args = list()), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " c(\"Loggers\", \"Time\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\"))), ", " list(method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, -120.3612389", " ), lat = c(50.66895556, 50.66778333)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3624278, ", " 50.66778333, -120.3612389, 50.66895556), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2200\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3634889), lat = c(50.66778333, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66778333, -120.3612389, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3634889, ", " -120.3631833), lat = c(50.6693833, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66909444, -120.3631833, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2400_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFA900\", weight = 23.3333333333333, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFA900\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.4\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3634889), lat = c(50.66895556, 50.6693833", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66895556, -120.3624278, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF5500\", weight = 36.6666666666667, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF5500\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.6\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3631833), lat = c(50.66895556, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66895556, -120.3624278, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.8\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3612389, ", " -120.3631833), lat = c(50.66778333, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66778333, -120.3612389, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.8\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLegend\", args = list(list(colors = structure(\"#FFFF00 , #FFFF00 0%, #FFD400 16.6666666666667%, #FFA900 33.3333333333333%, #FF7F00 50%, #FF5500 66.6666666666667%, #FF2B00 83.3333333333334%, #FF0000 100%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"0.2\", \"0.3\", \"0.4\", \"0.5\", ", " \"0.6\", \"0.7\", \"0.8\"), class = \"AsIs\"), na_color = NULL, ", " na_label = \"NA\", opacity = 1, position = \"topright\", ", " type = \"numeric\", title = \"Path use\", extra = list(", " p_1 = 0, p_n = 1), layerId = NULL, className = \"info legend\", ", " group = NULL))), list(method = \"hideGroup\", args = list(", " \"Loggers\")), list(method = \"showGroup\", args = list(", " \"Loggers\")), list(method = \"removeLayersControl\", ", " args = list()), list(method = \"addLayersControl\", ", " args = list(c(\"Satellite\", \"Terrain\", \"Open Street Map\", ", " \"Black and White\"), c(\"Loggers\", \"Time\", \"Path use\"", " ), list(collapsed = TRUE, autoZIndex = TRUE, position = \"topright\")))), ", " limits = list(lat = c(50.66778333, 50.6693833), lng = c(-120.3634889, ", " -120.3612389))), leafletData = structure(list(logger_id = structure(1:4, levels = c(\"2100\", ", "\"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66895556, ", "50.66778333, 50.6693833, 50.66909444), lon = c(-120.3624278, ", "-120.3612389, -120.3634889, -120.3631833)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
+---
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66895556, ", " 50.66778333, 50.6693833, 50.66909444), c(-120.3624278, ", " -120.3612389, -120.3634889, -120.3631833), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2100\", \"Logger: 2200\", \"Logger: 2400\", ", " \"Logger: 2700\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\"))), list(method = \"addCircleMarkers\", ", " args = list(c(50.66895556, 50.66778333, 50.6693833, ", " 50.66909444), c(-120.3624278, -120.3612389, -120.3634889, ", " -120.3631833), c(50, 38.3443147765464, 28.5993249176067, ", " 10), c(\"presence-1\", \"presence-2\", \"presence-3\", ", " \"presence-4\"), \"Time\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"black\", weight = 1, opacity = 1, ", " fill = TRUE, fillColor = c(\"#FF0000\", \"#FF6D00\", ", " \"#FFB200\", \"#FFFF00\"), fillOpacity = 0.8), NULL, ", " NULL, c(\"10\", \"7\", \"5\", \"4\"), NULL, NULL, list(", " interactive = FALSE, permanent = FALSE, direction = \"auto\", ", " opacity = 1, offset = c(0, 0), textsize = \"10px\", ", " textOnly = FALSE, className = \"\", sticky = TRUE), ", " NULL)), list(method = \"addLegend\", args = list(", " list(colors = structure(\"#FFFF00 , #FFEC00 7.12858094603598%, #FFC400 23.1179213857428%, #FF9B00 39.1072618254497%, #FF7200 55.0966022651566%, #FF4900 71.0859427048634%, #FF2100 87.0752831445703%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"4\", \"5\", \"6\", \"7\", \"8\", ", " \"9\"), class = \"AsIs\"), na_color = NULL, na_label = \"NA\", ", " opacity = 1, position = \"topright\", type = \"numeric\", ", " title = \"Time\", extra = list(p_1 = 0.0712858094603598, ", " p_n = 0.870752831445703), layerId = NULL, className = \"info legend\", ", " group = NULL))), list(method = \"hideGroup\", args = list(", " \"Loggers\")), list(method = \"showGroup\", args = list(", " \"Loggers\")), list(method = \"removeLayersControl\", ", " args = list()), list(method = \"addLayersControl\", ", " args = list(c(\"Satellite\", \"Terrain\", \"Open Street Map\", ", " \"Black and White\"), c(\"Loggers\", \"Time\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\"))), ", " list(method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, -120.3612389", " ), lat = c(50.66895556, 50.66778333)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3624278, ", " 50.66778333, -120.3612389, 50.66895556), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2200\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3634889), lat = c(50.66778333, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66778333, -120.3612389, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3634889, ", " -120.3631833), lat = c(50.6693833, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66909444, -120.3631833, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2400_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFA900\", weight = 23.3333333333333, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFA900\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.5\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3634889), lat = c(50.66895556, 50.6693833", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66895556, -120.3624278, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF5500\", weight = 36.6666666666667, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF5500\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.8\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3631833), lat = c(50.66895556, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66895556, -120.3624278, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3631833), lat = c(50.66778333, ", " 50.66909444)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66778333, -120.3612389, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF0000\", weight = 50, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF0000\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addLegend\", ", " args = list(list(colors = structure(\"#FFFF00 , #FFED00 6.66666666666667%, #FFCC00 20%, #FFA900 33.3333333333333%, #FF8800 46.6666666666667%, #FF6600 60%, #FF4400 73.3333333333333%, #FF2200 86.6666666666667%, #FF0000 100%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"0.3\", \"0.4\", \"0.5\", \"0.6\", ", " \"0.7\", \"0.8\", \"0.9\", \"1.0\"), class = \"AsIs\"), ", " na_color = NULL, na_label = \"NA\", opacity = 1, ", " position = \"topright\", type = \"numeric\", title = \"Path use\", ", " extra = list(p_1 = 0.0666666666666667, p_n = 1), ", " layerId = NULL, className = \"info legend\", group = NULL))), ", " list(method = \"hideGroup\", args = list(\"Loggers\")), list(", " method = \"showGroup\", args = list(\"Loggers\")), list(", " method = \"removeLayersControl\", args = list()), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " c(\"Loggers\", \"Time\", \"Path use\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\")))), ", " limits = list(lat = c(50.66778333, 50.6693833), lng = c(-120.3634889, ", " -120.3612389))), leafletData = structure(list(logger_id = structure(1:4, levels = c(\"2100\", ", "\"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66895556, ", "50.66778333, 50.6693833, 50.66909444), lon = c(-120.3624278, ", "-120.3612389, -120.3634889, -120.3631833)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
+# map_leaflet() returns summary map of individuals
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66895556, ", " 50.66778333, 50.6693833, 50.66909444), c(-120.3624278, ", " -120.3612389, -120.3634889, -120.3631833), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2100\", \"Logger: 2200\", \"Logger: 2400\", ", " \"Logger: 2700\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\"))), list(method = \"addCircleMarkers\", ", " args = list(c(50.66895556, 50.6693833, 50.66778333, ", " 50.66895556, 50.66778333, 50.66909444, 50.66909444, ", " 50.66895556, 50.6693833, 50.66909444, 50.6693833, ", " 50.66778333, 50.66778333), c(-120.3624278, -120.3634889, ", " -120.3612389, -120.3624278, -120.3612389, -120.3631833, ", " -120.3631833, -120.3624278, -120.3634889, -120.3631833, ", " -120.3634889, -120.3612389, -120.3612389), c(50, ", " 46.9398474890647, 46.3861470823815, 41.8987158794216, ", " 36.3462877276201, 30.4432957869743, 25.9277612575354, ", " 23.446977748747, 22.0590768350218, 18.2617858646548, ", " 10.0952402446938, 10, 10), c(\"presence-1\", \"presence-2\", ", " \"presence-3\", \"presence-4\", \"presence-5\", \"presence-6\", ", " \"presence-7\", \"presence-8\", \"presence-9\", \"presence-10\", ", " \"presence-11\", \"presence-12\", \"presence-13\"), \"Time\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"black\", weight = 1, opacity = 1, fill = TRUE, ", " fillColor = c(\"#FF0000\", \"#FF2000\", \"#FF2500\", ", " \"#FF4F00\", \"#FF7D00\", \"#FFA600\", \"#FFC200\", ", " \"#FFCF00\", \"#FFD500\", \"#FFE500\", \"#FFFF00\", ", " \"#FFFF00\", \"#FFFF00\"), fillOpacity = 0.8), ", " NULL, NULL, c(\"21\", \"18\", \"18\", \"14\", \"11\", \"7\", ", " \"5\", \"4\", \"3\", \"2\", \"0\", \"0\", \"0\"), NULL, NULL, ", " list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addLegend\", ", " args = list(list(colors = structure(\"#FFFF00 , #FFFF00 0%, #FFC200 23.9234449760766%, #FF8500 47.8468899521531%, #FF4700 71.7703349282297%, #FF0C00 95.6937799043062%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"0\", \"5\", \"10\", \"15\", \"20\"", " ), class = \"AsIs\"), na_color = NULL, na_label = \"NA\", ", " opacity = 1, position = \"topright\", type = \"numeric\", ", " title = \"Time\", extra = list(p_1 = 0, p_n = 0.956937799043062), ", " layerId = NULL, className = \"info legend\", group = NULL))), ", " list(method = \"hideGroup\", args = list(\"Loggers\")), list(", " method = \"showGroup\", args = list(\"Loggers\")), list(", " method = \"removeLayersControl\", args = list()), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " c(\"Loggers\", \"Time\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\"))), ", " list(method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, -120.3634889, ", " -120.3624278, -120.3634889), lat = c(50.66895556, ", " 50.6693833, 50.66895556, 50.6693833)), row.names = c(NA, ", " 4L), class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66895556, -120.3624278, 50.6693833), dim = c(2L, 2L", " ), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3624278, -120.3612389), lat = c(50.66895556, ", " 50.66778333)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3624278, ", " 50.66778333, -120.3612389, 50.66895556), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2200\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3624278, -120.3631833, -120.3624278, ", " -120.3631833), lat = c(50.66895556, 50.66909444, ", " 50.66895556, 50.66909444)), row.names = c(NA, ", " 4L), class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66895556, -120.3624278, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3634889), lat = c(50.66778333, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66778333, -120.3612389, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2400\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3631833, -120.3612389, ", " -120.3631833, -120.3612389, -120.3631833), lat = c(50.66778333, ", " 50.66909444, 50.66778333, 50.66909444, 50.66778333, ", " 50.66909444)), row.names = c(NA, 6L), class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66778333, -120.3612389, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFF00\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFF00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"1\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3634889, -120.3631833), lat = c(50.6693833, ", " 50.66909444)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66909444, -120.3631833, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2400_2700\", ", " \"Path use\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FF7F00\", weight = 30, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FF7F00\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"2\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addLegend\", ", " args = list(list(colors = structure(\"#FFFF00 , #FFFF00 0%, #FFBF00 25%, #FF7F00 50%, #FF4000 75%, #FF0000 100%, #FF0000 \", class = \"AsIs\"), ", " labels = structure(c(\"1.0\", \"1.5\", \"2.0\", \"2.5\", ", " \"3.0\"), class = \"AsIs\"), na_color = NULL, na_label = \"NA\", ", " opacity = 1, position = \"topright\", type = \"numeric\", ", " title = \"Path use\", extra = list(p_1 = 0, p_n = 1), ", " layerId = NULL, className = \"info legend\", group = NULL))), ", " list(method = \"hideGroup\", args = list(\"Loggers\")), list(", " method = \"showGroup\", args = list(\"Loggers\")), list(", " method = \"removeLayersControl\", args = list()), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " c(\"Loggers\", \"Time\", \"Path use\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\")))), ", " limits = list(lat = c(50.66778333, 50.6693833), lng = c(-120.3634889, ", " -120.3612389))), leafletData = structure(list(logger_id = structure(1:4, levels = c(\"2100\", ", "\"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66895556, ", "50.66778333, 50.6693833, 50.66909444), lon = c(-120.3624278, ", "-120.3612389, -120.3634889, -120.3631833)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
+# map_leaflet() scale, pal, title
+
+ {
+ "type": "character",
+ "attributes": {},
+ "value": ["structure(list(options = list(maxZoom = 18, crs = structure(list(", " crsClass = \"L.CRS.EPSG3857\", code = NULL, proj4def = NULL, ", " projectedBounds = NULL, options = structure(list(), names = character(0))), class = \"leaflet_crs\")), ", " calls = list(list(method = \"addTiles\", args = list(\"https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\", ", " NULL, \"Open Street Map\", list(minZoom = 0, maxZoom = 18, ", " tileSize = 256, subdomains = \"abc\", errorTileUrl = \"\", ", " tms = FALSE, noWrap = FALSE, zoomOffset = 0, zoomReverse = FALSE, ", " opacity = 1, zIndex = 1, detectRetina = FALSE, attribution = \"© OpenStreetMap<\/a>, ODbL<\/a>\"))), ", " list(method = \"addProviderTiles\", args = list(\"Stadia.StamenToner\", ", " NULL, \"Black and White\", list(errorTileUrl = \"\", ", " noWrap = FALSE, detectRetina = FALSE))), list(", " method = \"addProviderTiles\", args = list(\"Esri.WorldImagery\", ", " NULL, \"Satellite\", list(errorTileUrl = \"\", noWrap = FALSE, ", " detectRetina = FALSE))), list(method = \"addProviderTiles\", ", " args = list(\"Esri.WorldTopoMap\", NULL, \"Terrain\", ", " list(errorTileUrl = \"\", noWrap = FALSE, detectRetina = FALSE))), ", " list(method = \"addCircleMarkers\", args = list(c(50.66895556, ", " 50.66778333, 50.6693833, 50.66909444), c(-120.3624278, ", " -120.3612389, -120.3634889, -120.3631833), 5, NULL, \"Loggers\", ", " list(interactive = TRUE, className = \"\", stroke = TRUE, ", " color = \"white\", weight = 2, opacity = 1, fill = TRUE, ", " fillColor = \"black\", fillOpacity = 1), NULL, ", " NULL, c(\"Logger: 2100\", \"Logger: 2200\", \"Logger: 2400\", ", " \"Logger: 2700\"), NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " \"Loggers\", list(collapsed = TRUE, autoZIndex = TRUE, ", " position = \"topright\"))), list(method = \"addCircleMarkers\", ", " args = list(c(50.66895556, 50.66778333, 50.6693833, ", " 50.66909444), c(-120.3624278, -120.3612389, -120.3634889, ", " -120.3631833), c(200, 151.264710551496, 109.706166818346, ", " 10), c(\"presence-1\", \"presence-2\", \"presence-3\", ", " \"presence-4\"), \"TIME\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"black\", weight = 1, opacity = 1, ", " fill = TRUE, fillColor = c(\"#FFFF00\", \"#91FF00\", ", " \"#4CFF00\", \"#00FF00\"), fillOpacity = 0.8), NULL, ", " NULL, c(\"8\", \"6\", \"4\", \"3\"), NULL, NULL, list(", " interactive = FALSE, permanent = FALSE, direction = \"auto\", ", " opacity = 1, offset = c(0, 0), textsize = \"10px\", ", " textOnly = FALSE, className = \"\", sticky = TRUE), ", " NULL)), list(method = \"addLegend\", args = list(", " list(colors = structure(\"#00FF00 , #09FF00 3.13124583610926%, #3BFF00 23.1179213857428%, #6EFF00 43.1045969353764%, #A0FF00 63.09127248501%, #D3FF00 83.0779480346436%, #FFFF00 \", class = \"AsIs\"), ", " labels = structure(c(\"3\", \"4\", \"5\", \"6\", \"7\"), class = \"AsIs\"), ", " na_color = NULL, na_label = \"NA\", opacity = 1, ", " position = \"topright\", type = \"numeric\", title = \"TIME\", ", " extra = list(p_1 = 0.0313124583610926, p_n = 0.830779480346436), ", " layerId = NULL, className = \"info legend\", group = NULL))), ", " list(method = \"hideGroup\", args = list(\"Loggers\")), list(", " method = \"showGroup\", args = list(\"Loggers\")), list(", " method = \"removeLayersControl\", args = list()), list(", " method = \"addLayersControl\", args = list(c(\"Satellite\", ", " \"Terrain\", \"Open Street Map\", \"Black and White\"), ", " c(\"Loggers\", \"TIME\"), list(collapsed = TRUE, ", " autoZIndex = TRUE, position = \"topright\"))), ", " list(method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, -120.3612389", " ), lat = c(50.66895556, 50.66778333)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3624278, ", " 50.66778333, -120.3612389, 50.66895556), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2200\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#0000FF\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#0000FF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, permanent = FALSE, ", " direction = \"auto\", opacity = 1, offset = c(0, ", " 0), textsize = \"10px\", textOnly = FALSE, className = \"\", ", " sticky = TRUE), NULL)), list(method = \"addPolylines\", ", " args = list(structure(list(list(list(structure(list(", " lng = c(-120.3612389, -120.3634889), lat = c(50.66778333, ", " 50.6693833)), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66778333, -120.3612389, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2400\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#0000FF\", weight = 10, ", " opacity = 0.8, fill = FALSE, fillColor = \"#0000FF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.2\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3634889, ", " -120.3631833), lat = c(50.6693833, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66909444, -120.3631833, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2400_2700\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#5555FF\", weight = 56.6666666666667, ", " opacity = 0.8, fill = FALSE, fillColor = \"#5555FF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.4\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3634889), lat = c(50.66895556, 50.6693833", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3634889, ", " 50.66895556, -120.3624278, 50.6693833), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2400\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#AAA9FF\", weight = 103.333333333333, ", " opacity = 0.8, fill = FALSE, fillColor = \"#AAA9FF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.6\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3624278, ", " -120.3631833), lat = c(50.66895556, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66895556, -120.3624278, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2100_2700\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFFFF\", weight = 150, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFFFF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.8\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addPolylines\", args = list(structure(list(", " list(list(structure(list(lng = c(-120.3612389, ", " -120.3631833), lat = c(50.66778333, 50.66909444", " )), row.names = 1:2, class = \"data.frame\")))), bbox = structure(c(-120.3631833, ", " 50.66778333, -120.3612389, 50.66909444), dim = c(2L, ", " 2L), dimnames = list(c(\"lng\", \"lat\"), NULL))), \"2200_2700\", ", " \"PATH\", list(interactive = TRUE, className = \"\", ", " stroke = TRUE, color = \"#FFFFFF\", weight = 150, ", " opacity = 0.8, fill = FALSE, fillColor = \"#FFFFFF\", ", " fillOpacity = 0.2, smoothFactor = 1, noClip = FALSE), ", " \"0.8\", NULL, NULL, list(interactive = FALSE, ", " permanent = FALSE, direction = \"auto\", opacity = 1, ", " offset = c(0, 0), textsize = \"10px\", textOnly = FALSE, ", " className = \"\", sticky = TRUE), NULL)), list(", " method = \"addLegend\", args = list(list(colors = structure(\"#0000FF , #0000FF 0%, #2B2BFF 16.6666666666667%, #5555FF 33.3333333333333%, #7F7FFF 50%, #AAA9FF 66.6666666666667%, #D4D4FF 83.3333333333334%, #FFFFFF 100%, #FFFFFF \", class = \"AsIs\"), ", " labels = structure(c(\"0.2\", \"0.3\", \"0.4\", \"0.5\", ", " \"0.6\", \"0.7\", \"0.8\"), class = \"AsIs\"), na_color = NULL, ", " na_label = \"NA\", opacity = 1, position = \"topright\", ", " type = \"numeric\", title = \"PATH\", extra = list(", " p_1 = 0, p_n = 1), layerId = NULL, className = \"info legend\", ", " group = NULL))), list(method = \"hideGroup\", args = list(", " \"Loggers\")), list(method = \"showGroup\", args = list(", " \"Loggers\")), list(method = \"removeLayersControl\", ", " args = list()), list(method = \"addLayersControl\", ", " args = list(c(\"Satellite\", \"Terrain\", \"Open Street Map\", ", " \"Black and White\"), c(\"Loggers\", \"TIME\", \"PATH\"), ", " list(collapsed = TRUE, autoZIndex = TRUE, position = \"topright\")))), ", " limits = list(lat = c(50.66778333, 50.6693833), lng = c(-120.3634889, ", " -120.3612389))), leafletData = structure(list(logger_id = structure(1:4, levels = c(\"2100\", ", "\"2200\", \"2400\", \"2700\"), class = \"factor\"), lat = c(50.66895556, ", "50.66778333, 50.6693833, 50.66909444), lon = c(-120.3624278, ", "-120.3612389, -120.3634889, -120.3631833)), row.names = c(NA, ", "-4L), class = c(\"tbl_df\", \"tbl\", \"data.frame\")))"]
+ }
+
diff --git a/tests/testthat/ggmap_args1_map.png b/tests/testthat/ggmap_args1_map.png
deleted file mode 100644
index 279bbee..0000000
Binary files a/tests/testthat/ggmap_args1_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_args2_map.png b/tests/testthat/ggmap_args2_map.png
deleted file mode 100644
index 35f241f..0000000
Binary files a/tests/testthat/ggmap_args2_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_args3_map.png b/tests/testthat/ggmap_args3_map.png
deleted file mode 100644
index 18fa871..0000000
Binary files a/tests/testthat/ggmap_args3_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_indiv1_map.png b/tests/testthat/ggmap_indiv1_map.png
deleted file mode 100644
index 984a1f4..0000000
Binary files a/tests/testthat/ggmap_indiv1_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_indiv2_map.png b/tests/testthat/ggmap_indiv2_map.png
deleted file mode 100644
index b2390de..0000000
Binary files a/tests/testthat/ggmap_indiv2_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_none_map.png b/tests/testthat/ggmap_none_map.png
deleted file mode 100644
index bf97f1c..0000000
Binary files a/tests/testthat/ggmap_none_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_sum_indiv_map.png b/tests/testthat/ggmap_sum_indiv_map.png
deleted file mode 100644
index c48880a..0000000
Binary files a/tests/testthat/ggmap_sum_indiv_map.png and /dev/null differ
diff --git a/tests/testthat/ggmap_sum_map.png b/tests/testthat/ggmap_sum_map.png
deleted file mode 100644
index b25e30f..0000000
Binary files a/tests/testthat/ggmap_sum_map.png and /dev/null differ
diff --git a/tests/testthat/test_c05_map_leaflet.R b/tests/testthat/test_c05_map_leaflet.R
index b4eb7ef..2ff8760 100755
--- a/tests/testthat/test_c05_map_leaflet.R
+++ b/tests/testthat/test_c05_map_leaflet.R
@@ -4,8 +4,8 @@ test_that("maps_leaflet_base return maps", {
expect_silent(map <- map_leaflet_base(locs = unique(finches[, c("logger_id", "lat", "lon")])))
expect_s3_class(map, c("leaflet", "htmlwidget"))
- expect_true(all(attr(map$x, "leafletData") == unique(finches[, c("logger_id", "lat", "lon")])))
- #expect_equal_to_leaflet_reference(map, "leaflet_base_map.rds")
+ expect_equal(attr(map$x, "leafletData"), unique(finches[, c("logger_id", "lat", "lon")]))
+ expect_snapshot_value(deparse(map$x), style = "json2")
})
test_that("map_leaflet() returns summary map", {
@@ -15,13 +15,13 @@ test_that("map_leaflet() returns summary map", {
m = move(visits(finches)),
summary = "sum"), NA)
expect_s3_class(map, c("leaflet", "htmlwidget"))
- #expect_equal_to_leaflet_reference(map, "leaflet_sum_map.rds")
+ expect_snapshot_value(deparse(map$x), style = "json2")
expect_error(map <- map_leaflet(p = presence(visits(finches)),
m = move(visits(finches)),
summary = "sum_indiv"), NA)
expect_s3_class(map, c("leaflet", "htmlwidget"))
- #expect_equal_to_leaflet_reference(map, "leaflet_sum_indiv_map.rds")
+ expect_snapshot_value(deparse(map$x), style = "json2")
p2 <- presence(visits(finches)) %>%
dplyr::group_by(logger_id, lat, lon) %>%
@@ -33,7 +33,7 @@ test_that("map_leaflet() returns summary map", {
expect_error(map <- map_leaflet(p = p2, m = m2), NA)
expect_s3_class(map, c("leaflet", "htmlwidget"))
- #expect_equal_to_leaflet_reference(map, "leaflet_none_map.rds")
+ expect_snapshot_value(deparse(map$x), style = "json2")
})
test_that("map_leaflet() returns summary map of individuals", {
@@ -48,7 +48,7 @@ test_that("map_leaflet() returns summary map of individuals", {
expect_error(map <- map_leaflet(p = p_indiv, m = m_indiv), NA)
expect_s3_class(map, c("leaflet", "htmlwidget"))
- #expect_equal_to_leaflet_reference(map, "leaflet_indiv_map.rds")
+ expect_snapshot_value(deparse(map$x), style = "json2")
})
test_that("map_leaflet() scale, pal, title", {
@@ -62,5 +62,5 @@ test_that("map_leaflet() scale, pal, title", {
m_title = "PATH", p_title = "TIME",
m_pal = c("blue", "white"), p_pal = c("green", "yellow")), NA)
expect_s3_class(map, c("leaflet", "htmlwidget"))
- # expect_equal_to_leaflet_reference(map, "leaflet_args_map.rds")
+ expect_snapshot_value(deparse(map$x), style = "json2")
})