Generates the HTML necessary to create a map using Stately (http://intridea.github.io/stately/). stately.csv contains state names and abbreviations with the correct letter for the Stately font.

statelify.R

#States is a data.frame with at least the following columns:
# $color: Any string identifiable as a color by CSS (It's included in a `style` attribute.
# $letter: The letter corresponding to this state in the Stately font.
#
# states$id and states$class will be used as the `id` and `class` 
# attributes of the list elements for the states. All other columns 
# will be inserted as data-<column-name> attributes (in case you want
# to use them with JavaScript).

statelify <- function(states) {
  #TODO: color palette handling should be here (maybe).
  sp <- "\n"
  req.cols <- c('letter', 'color')
  outp <- '<ul class="stately">'
  
  #Ever get the feeling you're being really stupid and there's a much easier way?
  extraAtts <- colnames(states)[!(colnames(states) %in% req.cols)]
  
  for ( x in 1:length(states[,1]) ) {
    ln <-  sprintf('<li style="color:%s;"', states$color[x])
    
    if ( length(extraAtts) > 0 ) {
      for( att in extraAtts ) {
        attName <- gsub('\\.', '-', att)
        
        if ( !(attName %in% c('class', 'id')))
          attName <- paste('data-', attName, sep='')
        
        ln <- sprintf('%s %s="%s"', ln, attName, states[x, att])
      }
    }
    
    ln <- sprintf('%s>%s</li>', ln, states$letter[x])
    outp <- paste(outp, ln, sep=sp)
  }
  
  paste(outp, '</ul>', sep=sp)
}

stately.csv