From f410340b25ee52b086b7d2f53fa09d3a36339496 Mon Sep 17 00:00:00 2001 From: trafficonese <35805180+trafficonese@users.noreply.github.com> Date: Sun, 1 Sep 2024 21:25:32 +0000 Subject: [PATCH] =?UTF-8?q?Deploying=20to=20gh-pages=20from=20@=20traffico?= =?UTF-8?q?nese/leaflet.extras2@c34b6297b37f94c14636f2acc92b8b5ccb2276b4?= =?UTF-8?q?=20=F0=9F=9A=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- index.html | 1 + pkgdown.yml | 2 +- reference/addMovingMarker.html | 2 +- reference/addPlayback.html | 14 +- reference/addSidebyside.html | 4 +- reference/addSpinner.html | 4 +- reference/addTimeslider.html | 4 +- reference/addWMS.html | 4 +- reference/historyOptions.html | 4 +- .../leaflet.playback-bindings.js | 113 +++ .../lfx-playback-1.0.0/leaflet.playback.js | 960 ++++++++++++++++++ reference/setBuildingStyle.html | 4 +- reference/updateBuildingTime.html | 4 +- search.json | 2 +- 14 files changed, 1099 insertions(+), 23 deletions(-) create mode 100644 reference/libs/lfx-playback-1.0.0/leaflet.playback-bindings.js create mode 100644 reference/libs/lfx-playback-1.0.0/leaflet.playback.js diff --git a/index.html b/index.html index 0d3bdeb3..91b0e80f 100644 --- a/index.html +++ b/index.html @@ -179,6 +179,7 @@
if (FALSE) { # \dontrun{
-library(leaflet)
+ library(leaflet)
library(leaflet.extras2)
library(sf)
## Single Elements
data <- sf::st_as_sf(leaflet::atlStorms2005[1,])
data <- st_cast(data, "POINT")
+#> Warning: repeating attributes for all sub-geometries for which they may not be constant
data$time = as.POSIXct(
seq.POSIXt(Sys.time() - 1000, Sys.time(), length.out = nrow(data)))
data$label <- as.character(data$time)
@@ -165,12 +165,14 @@ Examples speed = 50,
maxInterpolationTime = 1000),
pathOpts = pathOptions(weight = 5))
-
+
+
## Multiple Elements
data <- sf::st_as_sf(leaflet::atlStorms2005[1:5,])
data$Name <- as.character(data$Name)
data <- st_cast(data, "POINT")
+#> Warning: repeating attributes for all sub-geometries for which they may not be constant
data$time <- unlist(lapply(rle(data$Name)$lengths, function(x) {
seq.POSIXt(as.POSIXct(Sys.Date()-2), as.POSIXct(Sys.Date()), length.out = x)
}))
@@ -198,8 +200,8 @@ Examples color = c("red","green","blue",
"orange","yellow")),
pathOpts = pathOptions(weight = 5))
-} # }
-
+
+