convert a file from one encoding to another one

convertFile.R

convertFile <- function(inputFile, outputFile,
                        fromEncoding="UTF-8", toEncoding="ASCII") {
  stopifnot(file.exists(inputFile))
  input <- readLines(inputFile, encoding=fromEncoding)
  output <- iconv(input, from=fromEncoding, to=toEncoding)
  return(writeLines(output, outputFile))
}