Skip to content
Datamaps Test
JavaScript R
Branch: master
Clone or download

Latest commit

Fetching latest commit…
Cannot retrieve the latest commit at this time.

Files

Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R
data
inst/htmlwidgets
man
.Rbuildignore
.gitignore
DESCRIPTION
NAMESPACE
README.R.md
README.md
datamaps.Rproj

README.md

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)
You can’t perform that action at this time.