update_legend: Dynamically update legend

In JohnCoene/datamaps: Create Interactive Web Maps with the 'JavaScript Datamaps' Library

Description

Dynamically update legend using Shiny

Usage

update_legend(proxy)

Arguments

proxy

a proxy as returned by datamapsProxy.

Examples

## Not run: 
library(shiny)

ui <- fluidPage(
  actionButton(
    "show",
    "Show legend"
  ),
  datamapsOutput("map")
)

server <- function(input, output){
  states <- data.frame(st = c("AR", "NY", "CA", "IL", "CO", "MT", "TX"),
                       val = c(10, 5, 3, 8, 6, 7, 2))

  output$map <- renderDatamaps({
    states %>%
      datamaps(scope = "usa", default = "lightgray") %>%
      add_choropleth(st, val)
  })

  observeEvent(input$update, {
    datamapsProxy("map") %>%
      update_legend() # update
  })
}

shinyApp(ui, server)

## End(Not run)

JohnCoene/datamaps documentation built on Aug. 30, 2020, 7:20 a.m.