R/mime.R

In duncantl/RWordPress: Interface to Wordpress blogs

getExtension =
  #
  # getExtension("foo.R")
  # getExtension("foo.tar.gz")
  #
function(name, multiple = FALSE)
{
  gsub(".*\\.([a-zA-Z0-9]+)$", "\\1", name)
}


otherMIMETypes = c("r" = "text/R-code", # perhaps x-application/r-code
                   "svg" = "image/svg+xml")

guessMIMEType =
  #
  # Determine the MIME type
  #
  
  # guessMIMEType("foo.txt")
  # guessMIMEType("foo.png")
  # guessMIMEType("foo.jpeg")
  # guessMIMEType("foo.Z")
  # guessMIMEType(c("foo.txt", "foo.png", "foo.jpeg", "foo.Z"))    
  #
  # No svg in standard database we constructued, so add in via otherMIMETypes.
  # 
function(name)
{
  data(mimeTypeExtensions)
  ext = getExtension(name)
  ans = mimeTypeExtensions[tolower(ext)]
  if(is.na(ans)) 
    ans = otherMIMETypes[tolower(ext)]
  
  structure(ans, names = name)
}