Optionally wrap text in bidi isolates and overrides

[krlmlr]

for better support of RTL languages.

Should be a default in the next minor/major release.

CC @isteves @adisarid.

# Reference: https://www.w3.org/International/questions/qa-bidi-unicode-controls
fsi <- function(...) paste0("\u2068", ..., "\u2069")
# lri <- function(...) paste0("\u2066", ..., "\u2069")
# rli <- function(...) paste0("\u2067", ..., "\u2069")
lro <- function(...) paste0("\u202d", ..., "\u202c")

aleph <- "א"
bet <- "ב"

# Text output is right-to-left...
paste0(aleph, bet)
#> [1] "אב"

# but we can force the components to be left to right
writeLines(lro(paste0(
  fsi(aleph, bet),
  " ",
  fsi(bet, aleph)
)))
#> ‭⁨אב⁩ ⁨בא⁩‬

^{Created on 2021-04-16 by the reprex package (v1.0.0)}

[krlmlr]

Reprex:

aleph <- "א"
bet <- "ב"

data <- as.list(1:2)
names(data) <- c(aleph, bet)
pillar:::new_tbl(data)
#> # A data frame: 1 × 2
#>       א     ב
#>   <int> <int>
#> 1     1     2

^{Created on 2021-07-26 by the reprex package (v2.0.0.9000)}

[krlmlr]

With FSI and LRO:

aleph <- "א"
bet <- "ב"

data <- as.list(1:2)
names(data) <- c(aleph, bet)
pillar:::new_tbl(data)
#> # A data frame: 1 × 2
#> ‭⁨ ⁩ ⁨    א⁩ ⁨    ב⁩‬
#> ‭⁨ ⁩ ⁨<int>⁩ ⁨<int>⁩‬
#> ‭⁨1⁩ ⁨    1⁩ ⁨    2⁩‬

^{Created on 2021-07-26 by the reprex package (v2.0.0.9000)}

Also works in RStudio (at least on my Mac) 🎉

Needs #339 (for the option).

[krlmlr]

Now exposed through the pillar.bidi option.

aleph <- "א"
bet <- "ב"

data <- as.list(1:2)
names(data) <- c(aleph, bet)
pillar:::new_tbl(data)
#> # A data frame: 1 × 2
#>       א     ב
#>   <int> <int>
#> 1     1     2

options(pillar.bidi = TRUE)
pillar:::new_tbl(data)
#> # A data frame: 1 × 2
#> ‭⁨ ⁩ ⁨    א⁩ ⁨    ב⁩‬
#> ‭⁨ ⁩ ⁨<int>⁩ ⁨<int>⁩‬
#> ‭⁨1⁩ ⁨    1⁩ ⁨    2⁩‬

^{Created on 2021-07-27 by the reprex package (v2.0.0.9000)}

It will be more difficult to take directionality into account for deciding if the column title should be left- or right-aligned. We could solve this in {utf8} if needed, please file an issue there. (We'd likely use a new justify option "bidi" or such.)

aleph <- "א"
utf8::utf8_format(aleph, width = 5, justify = "left")
#> [1] "א    "

^{Created on 2021-07-27 by the reprex package (v2.0.0.9000)}

[github-actions]

This old thread has been automatically locked. If you think you have found something related to this, please open a new issue and link to this old issue if necessary.