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

# NOT RUN {
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)
# }