R Under development (unstable) (2024-04-08 r86366) -- "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 non-ASCII plotting in PDF and PS
> 
> 
> ## 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("encodings.R requires a UTF-8 locale")
+     q("no")
+ }
> musl <- grepl("musl", R.version$os)
> 
> Sys.unsetenv("_R_CHECK_MBCS_CONVERSION_FAILURE_")
> 
> 
> ## characters remapped in mbcsToSbcs
> ## (unless libiconv remaps first which in most cases macOS >= 14 does)
> 
> ## One-char fixups
> one <- c(0x2013, 0x2014, 0x2212, 0x2018, 0x2019, 0x201C, 0x201D,
+          0x2022, 0x2605, 0x2737)
> one <- intToUtf8(one, TRUE)
> ## macOS transliterates the first 8, 8th to "o", quotes to grave/acute accent.
> cat(one, sep ="  "); cat("\n")
–  —  −  ‘  ’  “  ”  •  ★  ✷
> 
> ## Two-ckar fixups
> two <- c(0x2190, 0x2192, 0x2794, 0x279C, 0x279D, 0x279E, 0x279F, 0x27a1,
+          0x27a2, 0xFB00, 0xFB01, 0xFB02, 0x0152, 0x0153, 0x2264, 0x2265)
> two <- intToUtf8(two, TRUE)
> cat(two, sep ="  "); cat("\n")
←  →  ➔  ➜  ➝  ➞  ➟  ➡  ➢  ff  fi  fl  Œ  œ  ≤  ≥
> two_1 <- two[1:9]    # macOS transliterates the first 2 only
> two_2 <- two[-(1:9)] # macOS transliterates these.
> 
> ## Three-char fixups
> three <- c(0xFB03, 0xFB04)
> three <- intToUtf8(three, TRUE) # macOS transliterates these
> cat(three, sep ="  "); cat("\n")
ffi  ffl
> 
> ## Four-char fixups
> four <- "\u2030" # permille.  macOS and R map to o/oo.
> cat(four, sep ="  "); cat("\n")
‰
> 
> ## compress = FALSE makes this humna-readable and diff-able.
> ## hard-code encoding ISOLatin1.enc to match reference output
> ## (e.g. Windows default WinAnsi.enc, so CP-1252, has a special character
> ##  for bullet, fancy double quotes, per mille and other Unicode characters
> ##  used in the tests, while ISOLatin1.enc does not)
> pdf("PDF-encoding.pdf", width = 5, height = 5, compress = FALSE,
+     encoding="ISOLatin1.enc")
> plot(1:11, 0:10, type = "n")
> text(0.5+seq_along(one), 1, one, adj = c(0,0))
> text(0.5+seq_along(two_1), 3, two_1, adj = c(0,0))
> text(0.5+seq_along(two_2), 2, two_2, adj = c(0,0))
> text(0.5+seq_along(three), 4, three, adj = c(0,0))
> text(0.5+seq_along(four), 5, four, adj = c(0,0))
> 
> ## Things in packages which cannot be plotted on pdf(encoding = "latin1")
> five <- c("\u03b1", "\u03bc", "\u2211", "\u25cf", "\u25b2", "\u221e", "\uB3C4")
> cat(five, sep ="  "); cat("\n")
α  μ  ∑  ●  ▲  ∞  도
> six <- "\U0001f604" # emoji from WhatsR
> cat(six, sep ="  "); cat("\n")
😄
> # cyrillic from mapmisc
> seven <- "\u0423\u043b\u0430\u0430\u043d\u0431\u0430\u0430\u0442\u0430\u0440"
> cat(seven, sep ="  "); cat("\n")
Улаанбаатар
> ## Latin-2 example from package 'ggenealogy'
> ## Transliterations of \u010d (c caron) differ
> eight <- "Lubom\u00edr  Kub\u00e1\u010dek"
> cat(eight, sep ="  "); cat("\n")
Lubomír  Kubáček
> 
> text(0.5+seq_along(five), 6, five, adj = c(0,0))
> text(1.5, 7, six, adj = c(0,0))
> text(1.5, 8, seven, adj = c(0,0))
> text(1.5, 9, eight, adj = c(0,0))
> 
> ## Now try centring
> plot(1:11, 0:10, type = "n")
> text(0.5+seq_along(one), 1, one)
> text(0.5+seq_along(two_1), 3, two_1)
> text(0.5+seq_along(two_2), 2, two_2)
> text(0.5+seq_along(three), 4, three)
> text(0.5+seq_along(four), 5, four)
> text(0.5+seq_along(five), 6, five)
> text(1.5, 7, six)
Warning in text.default(1.5, 7, six) :
  font metrics unknown for Unicode character U+1F604
> text(5, 8, seven)
> text(5, 9, eight)
> dev.off()
null device 
          1 
> 
> ## avoid case clash with pdf-Cyrillic.pdf in encodings2.R
> pdf("PDF-cyr.pdf", width = 5, height = 5,
+     encoding = "KOI8-R", compress = FALSE)
> plot(1:10, 1:10, type = "n")
> text(1.5, 8, seven, adj = c(0,0))
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xf5 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xcc in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xce in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc2 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xd4 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 8, seven, adj = c(0, 0)) :
  font width unknown for character 0xd2 in encoding KOI8-R
> dev.off()
null device 
          1 
> 
> ##if(!musl) { ## musl's iconv does not support "latin2", only "iso88592"
>     ## works in default Helvetica but not in NimbusSan
>     pdf("PDF-latin2.pdf", width = 5, height = 5,
+         encoding = "ISOLatin2", compress = FALSE)
>     plot(1:10, 1:10, type = "n")
>     text(1.5, 9, eight, adj = c(0,0))
>     dev.off()
null device 
          1 
> ##}
> 
> 
> ## Also try postscript
> postscript("PS-encoding.ps", width = 5, height = 5, encoding="ISOLatin1.enc")
> plot(1:11, 0:10, type = "n")
> text(0.5+seq_along(one), 1, one, adj = c(0,0))
> text(0.5+seq_along(two_1), 3, two_1, adj = c(0,0))
> text(0.5+seq_along(two_2), 2, two_2, adj = c(0,0))
> text(0.5+seq_along(three), 4, three, adj = c(0,0))
> text(0.5+seq_along(four), 5, four, adj = c(0,0))
> text(0.5+seq_along(five), 6, five, adj = c(0,0))
> text(1.5, 7, six, adj = c(0,0))
> text(1.5, 8, seven, adj = c(0,0))
> text(1.5, 9, eight, adj = c(0,0)) ## macOS does transliteration here, badly
> dev.off()
null device 
          1 
> 
> ## avoid clashes with encodings tests in encodings2.R
> postscript("PS-cyr.ps", width = 5, height = 5, encoding = "KOI8-R")
> plot(1:10, 1:10, type = "n")
> text(1.5, 7, seven, adj = c(0,0))
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xf5 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xcc in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xce in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc2 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xd4 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xc1 in encoding KOI8-R
Warning in text.default(1.5, 7, seven, adj = c(0, 0)) :
  font width unknown for character 0xd2 in encoding KOI8-R
> dev.off()
null device 
          1 
> 
> ##if(!musl) {
>     postscript("PS-latin2.ps", width = 5, height = 5, encoding = "ISOLatin2")
>     plot(1:10, 1:10, type = "n")
>     text(1.5, 9, eight, adj = c(0,0))
>     dev.off()
null device 
          1 
> #}
> 
> ## Now with --as-cran settings in recent R, only.
> if (getRversion() < "4.4.0") q("no")
> Sys.setenv("_R_CHECK_MBCS_CONVERSION_FAILURE_" = "TRUE")
> ## These are only failures if the OS does not transliterate.
> ## so all work on Alpine Linux, giving '*'
> if(musl) q("no")
> 
> tf <- tempfile(fileext = ".pdf")
> ## note that using the default on Windows (WinAnsi.enc) enables some
> ## transliterations that would cause output differences in these tests
> ## (alpha, micro and infinity from "five" will get transliterated by
> ## Windows)
> pdf(tf, width = 5, height = 5, encoding="ISOLatin1.enc")
> plot(1:11, 0:10, type = "n")
> ## tranliterations done in mbcsToSbcs (when they will warn) if not
> ## done by the OS (which will be silent).
> text(0.5+seq_along(one), 1, one, adj = c(0,0))
> text(0.5+seq_along(two_1), 3, two_1, adj = c(0,0))
> text(0.5+seq_along(two_2), 2, two_2, adj = c(0,0))
> text(0.5+seq_along(three), 4, three, adj = c(0,0))
> text(0.5+seq_along(four), 5, four, adj = c(0,0))
> 
> ## conversions not done in mbcsToSbcs
> res5 <- try(text(0.5+seq_along(five), 6, five, adj = c(0,0)))
Error in text.default(0.5 + seq_along(five), 6, five, adj = c(0, 0)) : 
  conversion failure on 'α' in 'mbcsToSbcs': for α (U+03B1)
> if(!inherits(res5, "try-error")) message("error check failed on 'five'")
> res6 <- try(text(1.5, 7, six, adj = c(0,0)))
Error in text.default(1.5, 7, six, adj = c(0, 0)) : 
  conversion failure on '😄' in 'mbcsToSbcs': for 😄 (U+1F604)
> if(!inherits(res6, "try-error")) message("error check failed on 'six'")
> res7 <- try(text(1.5, 8, seven, adj = c(0,0)))
Error in text.default(1.5, 8, seven, adj = c(0, 0)) : 
  conversion failure on 'Улаанбаатар' in 'mbcsToSbcs': for У (U+0423)
> if(!inherits(res7, "try-error")) message("error check failed on 'seven'")
> ## 'eight' may or may not fail -- does on glibc, does not on macOS.
> res8 <- try(text(1.5, 9, eight, adj = c(0,0)), silent=TRUE)
> ## disable this check as the results are platform dependent
> ## if(!inherits(res8, "try-error")) message("error check failed on 'eight'")
> dev.off()
null device 
          1 
> unlink(tf)
> 
> 
> proc.time()
   user  system elapsed 
  0.131   0.040   0.167