R/utf8.r

In skranz/rmdtools: Tools for RMarkdown

#' Write text file in UTF-8 format
#' @export
writeUtf8 <- function(x, file, bom=F) {
  con <- file(file, "wb")
  if(bom) writeBin(BOM, con, endian="little")
  writeBin(charToRaw(x), con, endian="little")
  close(con)
}

#' Read a text file that was saved in UTF-8 format
#' @export
readUtf8 <- function(file,sep.lines=TRUE,warn=FALSE,...) {
  text <- readLines(file,encoding = "UTF-8",warn=warn,...)
  if (!sep.lines) text = paste0(text, collapse="\n")
  text
}

#' Read a text file and convert to UTF-8
#' @export
read.as.utf8 = function(file, sep.lines=TRUE,warn=FALSE,...) {
  text <- readLines(file,warn = warn,...)
  Encoding(text) <- "UTF-8"
  if (!sep.lines) text = paste0(text, collapse="\n")
  text
}

#' Recursively encode strings in list as UTF-8
#' @export
mark_utf8 = function(x) {
  if (is.character(x)) {
    Encoding(x) <- 'UTF-8'
    return(x)
  }
  if (!is.list(x)) return(x)
  attrs <- attributes(x)
  res <- lapply(x, mark_utf8)
  attributes(res) <- attrs
  res
}