out <- c(
"faxE7ile test of showNonASCII():",
"\\details{",
"This is a good line",
"This has an xfcmlaut in it.",
"OK again.",
"}")
f <- tempfile()
cat(out, file = f, sep = "")
showNonASCIIfile(f)
unlink(f)
Run the code above in your browser using DataLab