remove df |> as.data.frame()

mhpob · Jul 2, 2024 · 191335e · 191335e
1 parent cb1b778
commit 191335e
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/leaflet_graph.R b/R/leaflet_graph.R
@@ -5,7 +5,6 @@
 leaflet_graph <- function(station_spatial) {
   geometry<- NULL
   df <- station_spatial |> tidyr::extract(geometry, c('lon', 'lat'), '\\((.*), (.*)\\)', convert = TRUE)
-  df |>  as.data.frame()
   numPal <- leaflet::colorNumeric('viridis', df $Detections)
   leaflet::leaflet(data = df) |>
     leaflet::addTiles() |>