Dynamically update labels — update

Dynamically update labels using Shiny

update_labels(
  proxy,
  label.color = "#000",
  line.width = 1,
  font.size = 10,
  font.family = "Verdana",
  ...
)

Arguments

proxy	a proxy as returned by `datamapsProxy`.
label.color	color of label.
line.width	with of line.
font.size	size of font label.
font.family	family of font label.
...	any other option.

Examples

if (FALSE) {
library(shiny)

ui <- fluidPage(
  actionButton(
    "update",
    "update labels"
  ),
  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) %>% 
      add_labels()
  })

  observeEvent(input$update, {
    datamapsProxy("map") %>%
      update_labels(sample(c("blue", "red", "orange", "green", "white"), 1)) # update
  })
}

shinyApp(ui, server)
}