title: Datamaps author: Ramnath Vaidyanathan output: html_document
NOTE: This repo is just for testing purposes
This is an htmlwidgets binding for the datamaps package.
library(datamaps)
datamaps()
datamaps(scope = 'usa')
```{r eval = FALSE} 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
```{r}
datamaps(
scope = 'pcs',
geographyConfig = list(dataUrl = 'data/pcs.json'),
width = 900, height = 800
)
```{r eval = F} 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 = 'data/pcs.json'), fills = list(defaultFill = input$def_fill) ) ) }
runApp(list(ui = ui, server = server), launch.browser = rstudio::viewer) ```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.