R Under development (unstable) (2024-04-09 r86373) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ### Tests of transliteration in PDF
> 
> ## macOS >= 14 transliterates many chars, and R 4.4.0 does many of
> ## these for other platforms.  Some were tested in encodings.R, the
> ## rest here.
> 
> ## Silence substitution warnings to make this more diff-able.
> Sys.setenv("_R_SILENT_PDF_SUBSTITUTION_" = "true")
> 
> options(warn = 1L)
> 
> ### only do this in a UTF-8 locale
> if (!l10n_info()[["UTF-8"]]) {
+     warning("encodings3.R requires a UTF-8 locale")
+     q("no")
+ }
> 
> 
> ## Two-char fixups
> two <- c(0x2260, 0x226A, 0x226B, 0x2025, 0x203C, 0x2122)
> two <- intToUtf8(two, TRUE)
> cat(two, sep ="  "); cat("\n")
≠  ≪  ≫  ‥  ‼  ™
> 
> ## Three-char fixups
> three <- c(0x2194, 0x21D4, 0x22D8, 0x22D9, 0x2026, 0x22EF)
> three <- intToUtf8(three, TRUE)
> cat(three, sep ="  "); cat("\n")
↔  ⇔  ⋘  ⋙  …  ⋯
> ## 0x22EF is transliterated to 3x 'middle dot' in a suitable encoding
> 
> ## Four-char fixups
> four <- c(0x33C2, 0x33D8)
> four <- intToUtf8(four, TRUE)
> cat(four, sep ="  "); cat("\n")
㏂  ㏘
> 
> ## musl will substitute * for all of these characters in pdf().
> ## hard-code encoding ISOLatin1.enc to match reference output
> ## (e.g.  Windows default WinAnsi.enc, so CP-1252, has a special character
> ##  for U+2122, while ISOLatin1.enc does not)
> pdf("Encoding3.pdf", width = 7, height = 7, compress = FALSE,
+     encoding="ISOLatin1.enc")
> plot(1:10, 1:10, type = "n")
> text(0.5+seq_along(two), 2, two, adj = c(0,0))
> text(0.5+seq_along(three), 3, three, adj = c(0,0))
> text(0.5+seq_along(four), 4, four, adj = c(0,0))
> 
> ## Now try centring
> plot(1:10, 1:10, type = "n")
> text(0.5+seq_along(two), 2, two)
> text(0.5+seq_along(three), 3, three)
> text(0.5+seq_along(four), 4, four)
> dev.off()
null device 
          1 
> 
> if(!capabilities("cairo")) q("no")
> cairo_pdf("cairo_pdf-encodings3.pdf", width = 7, height = 7, onefile = TRUE)
> plot(1:10, 1:10, type = "n")
> text(0.5+seq_along(two), 2, two, adj = c(0,0))
> text(0.5+seq_along(three), 3, three, adj = c(0,0))
> text(0.5+seq_along(four), 4, four, adj = c(0,0))
> plot(1:10, 1:10, type = "n")
> text(0.5+seq_along(two), 2, two)
> text(0.5+seq_along(three), 3, three)
> text(0.5+seq_along(four), 4, four)
> dev.off()
null device 
          1 
> 
> 
> proc.time()
   user  system elapsed 
  0.105   0.026   0.130