inst/examples/arrowhead_app.R

In leaflet.extras2: Extra Functionality for 'leaflet' Package

library(shiny)
library(leaflet)
library(leaflet.extras2)

ui <- fluidPage(
  leafletOutput("map", height=800),
  actionButton("clear", "Clear Group"),
  actionButton("remove", "Remove"),
  actionButton("clearArrowhead", "Remove Arrowheads by group"),
  actionButton("removeArrowhead", "Remove Arrowheads by layerId's")
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      addLayersControl(overlayGroups = c("blue","red")) %>%
      ## Blue #############
      addArrowhead(data = atlStorms2005[1:10,], color="blue",
                   group="blue",
                   options = arrowheadOptions(
                     yawn = 60,
                     size = '7%',
                     frequency = 'endonly',
                     fill = TRUE,
                     opacity=0.5, stroke=FALSE, fillOpacity=0.4,
                     proportionalToTotal = TRUE,
                     offsets = NULL,
                     perArrowheadOptions = NULL)) %>%
      ## Red #############
      addArrowhead(data = atlStorms2005[11:20,], color = "red",
                   group = "red",
                   layerId = paste0("inp",1:10),
                   options = arrowheadOptions(
                     yawn = 90,
                     size = '10px',
                     frequency = 'allvertices',
                     fill = TRUE,
                     offsets = NULL,
                     perArrowheadOptions = NULL)) %>%
      ## Green #############
      addArrowhead(data = atlStorms2005[21,], color = "green", group="green",
                   options = arrowheadOptions(
                     size = '10px',
                     frequency = '50px',
                     offsets = list('start' = '100m', 'end' = '15px'),
                     fill = TRUE)) %>%
      ## Yellow #############
      addArrowhead(data = atlStorms2005[22,], color = "yellow",
                   options = arrowheadOptions(
                     size = "25000m",
                     frequency = '200000m',
                     fill = TRUE)) %>%
      ## Purple #############
      addArrowhead(data = atlStorms2005[24,], color = "purple",
                   options = arrowheadOptions(
                     opacity=1, fillOpacity=1,
                     frequency = "30px",
                     size= "20px", fill=TRUE,
                     perArrowheadOptions = leaflet::JS("(i) => ({
                         color: `rgba(150, 20, ${0 + 20 * i}, 1)`,
                      })")))
  })
  observeEvent(input$clear, {
    leafletProxy("map") %>%
      leaflet::clearGroup("blue")
  })
  observeEvent(input$remove, {
    leafletProxy("map") %>%
      leaflet::removeShape(layerId = "inp3")
  })
  observeEvent(input$clearArrowhead, {
    leafletProxy("map") %>%
      clearArrowhead(group = "blue")
  })
  observeEvent(input$removeArrowhead, {
    leafletProxy("map") %>%
      removeArrowhead(paste0("inp",1:5))
  })
}
shinyApp(ui, server)