Datamaps

NOTE: This repo is just for testing purposes

This is an htmlwidgets binding for the datamaps package.

Simple Map

Status: WORKING

library(datamaps)
datamaps()
datamaps(scope = 'usa')

Shiny App

Status: WORKING

library(shiny)
ui = bootstrapPage(
  selectInput('def_fill', 'Select Color', c('blue', 'green')),
  datamapsOutput('mymap', 800, 400)
)

server = function(input, output, session){
  output$mymap <- renderDatamaps(
    datamaps(
      fills = list(defaultFill = input$def_fill)
    )
  )
}

runApp(list(ui = ui, server = server), launch.browser = rstudio::viewer)

Map with External Data

Status: WORKING

This is to test if specifying external data using the attachment mechanism works.

datamaps(
  scope = 'pcs',
  geographyConfig = list(dataUrl = htmlwidgets:::attachment("data/pcs.json"))
)

Shiny App with External Data

Status: WORKING

This is to test if specifying external data in a shiny app using the attachment mechanism works.

library(shiny)
ui = bootstrapPage(
  selectInput('def_fill', 'Select Color', c('blue', 'green')),
  datamapsOutput('mymap', 900, 800)
)

server = function(input, output, session){
  output$mymap <- renderDatamaps(
    datamaps(
      scope = 'pcs', 
      geographyConfig = list(
        dataUrl = htmlwidgets:::attachment('data/pcs.json')
      ),
      fills = list(defaultFill = input$def_fill)
    )
  )
}

runApp(list(ui = ui, server = server), launch.browser = rstudio::viewer)