Add a circular border to each of the circular EmojiOne flags. Useful snippet for the next time I need to use the XML package in about forty years.

add-flag-borders.r

library(XML)

for (file in list.files(pattern = glob2rx('*.svg')))
{
  message('Processing ', file)
  flag = xmlParse(file)
  circle_node = newXMLNode('circle',
    attrs = c(
      'fill' = 'none',
      'stroke' = '#333',
      'stroke-width' = '1.5px',
      'cx' = '32',
      'cy' = '32',
      'r' = '30'))
  flag_mod = addChildren(xmlRoot(flag), kids = list(circle_node))
  saveXML(flag_mod, paste0('bordered/', file))
}