encoded_text_to_latex

0th

Percentile

Translate non-ASCII Text to LaTeX Escapes

Translate non-ASCII characters in text to LaTeX escape sequences.

Keywords
utilities
Usage
encoded_text_to_latex(x,
                      encoding = c("latin1", "latin2", "latin9",
                                   "UTF-8", "utf8"))
Arguments
x
a character vector.
encoding
the encoding to be assumed. "latin9" is officially ISO-8859-15 or Latin-9, but known as latin9 to LaTeX's inputenc package.
Details

Non-ASCII characters in x are replaced by an appropriate LaTeX escape sequence, or ? if there is no appropriate sequence. Even if there is an appropriate sequence, it may not be supported by the font in use. Hyphen is mapped to \-.

Value

A character vector of the same length as x.

See Also

iconv

Aliases
  • encoded_text_to_latex
Examples
library(tools) x <- "fa\xE7ile" encoded_text_to_latex(x, "latin1") ## Not run: ------------------------------------ # ## create a tex file to show the upper half of 8-bit charsets # x <- rawToChar(as.raw(160:255), multiple = TRUE) # (x <- matrix(x, ncol = 16, byrow = TRUE)) # xx <- x # xx[] <- encoded_text_to_latex(x, "latin1") # or latin2 or latin9 # xx <- apply(xx, 1, paste, collapse = "&") # con <- file("test-encoding.tex", "w") # header <- c( # "\\documentclass{article}", # "\\usepackage[T1]{fontenc}", # "\\usepackage{Rd}", # "\\begin{document}", # "\\HeaderA{test}{}{test}", # "\\begin{Details}\relax", # "\\Tabular{cccccccccccccccc}{") # trailer <- c("}", "\\end{Details}", "\\end{document}") # writeLines(header, con) # writeLines(paste0(xx, "\\"), con) # writeLines(trailer, con) # close(con) # ## and some UTF_8 chars # x <- intToUtf8(as.integer( # c(160:383,0x0192,0x02C6,0x02C7,0x02CA,0x02D8, # 0x02D9, 0x02DD, 0x200C, 0x2018, 0x2019, 0x201C, # 0x201D, 0x2020, 0x2022, 0x2026, 0x20AC)), # multiple = TRUE) # x <- matrix(x, ncol = 16, byrow = TRUE) # xx <- x # xx[] <- encoded_text_to_latex(x, "UTF-8") # xx <- apply(xx, 1, paste, collapse = "&") # con <- file("test-utf8.tex", "w") # writeLines(header, con) # writeLines(paste(xx, "\\", sep = ""), con) # writeLines(trailer, con) # close(con) ## ---------------------------------------------
Documentation reproduced from package tools, version 3.3.3, License: Part of R 3.3.3

Community examples

Looks like there are no examples yet.