inst/examples/server.R

In smartinsightsfromdata/rdatamaps: Interface to the datamaps Library, built on d3.js, for creating fantastic choropleth maps

library(shiny)
library(rdatamaps)


server = function(input, output, session) {
observe ({
  if(length(input$map)==0) { return() }
  # browser()
  output$results = renderPrint({
    input$map$name
  })
})
  ##

  output$map <- renderRdatamaps({
    if(!is.null(input$integer)) {
      mult <- input$integer
      #       val <- beerData[beerData$label=="Bud Light",2]
      #       beerData[beerData$label=="Bud Light",2] <- mult*val
    }
    rdatamaps(
      data = dat,
      scope = "states",
      fills = fill,
      projection = "d3.geo.mercator()",
      keyCol = "name",
      clng = -89,
      clat = 21,
      cwidth = 800,
      cheight = 400,
      scale = 400,
      popup = "Total crimes in ",
      popupVar = "total",
      width = NULL,
      height = NULL,
      dataUrl='mx_states.json')
    #   dataUrl='https://dl.dropboxusercontent.com/s/0cd691mgwv4hepz/mx_states.json'
  } )
}