/usr/share/doc/r-cran-r.oo/tests/ASCII.R

message("TESTING: ASCII...")

library("R.oo")

## Display ASCII table
print(R.oo::ASCII)

idxs <- 1:255
str(idxs)

chars <- intToChar(idxs)
print(chars)
stopifnot(length(chars) == length(idxs))

idxs2 <- charToInt(chars)
str(idxs2)
stopifnot(length(idxs2) == length(chars))

stopifnot(identical(idxs2, idxs))


message("TESTING: ASCII...DONE")

Generated by dwww version 1.15 on Thu May 23 21:02:05 CEST 2024.