93 lines
2.9 KiB
Plaintext
93 lines
2.9 KiB
Plaintext
|
|
||
|
|
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
|