R/utils.R

Defines functions GuessEncoding

GuessEncoding <- function(filename) {
  # Guesses the encoding of a file.
  cmd <- sprintf("file --mime-encoding %s", filename)
  strsplit(system(cmd, intern=TRUE), " ")[[1]][2]
}
ecos-umons/sourceR documentation built on June 26, 2022, 2:21 p.m.