/usr/share/doc/r-cran-r.utils/tests/colClasses.R is in r-cran-r.utils 2.5.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | library("R.utils")
# All predefined types
print(colClasses("-?cdfilnrzDP"))
## [1] "NULL" "NA" "character" "double"
## [5] "factor" "integer" "logical" "numeric"
## [9] "raw" "complex" "Date" "POSIXct"
# A string in column 1, integers in column 4 and 5, rest skipped
print(colClasses("c--ii----"))
## [1] "character" "NULL" "NULL" "integer"
## [5] "integer" "NULL" "NULL" "NULL"
## [9] "NULL"
# Repeats and custom column classes
c1 <- colClasses("3c{MyClass}3{foo}")
print(c1)
## [1] "character" "character" "character" "MyClass"
## [5] "foo" "foo" "foo"
# Passing repeats and class names using sprintf() syntax
c2 <- colClasses("%dc{%s}%d{foo}", 3, "MyClass", 3)
stopifnot(identical(c1, c2))
# Repeats of a vector of column classes
c3 <- colClasses("3{MyClass,c}")
print(c3)
## [1] "MyClass" "character" "MyClass" "character"
## [4] "MyClass" "character"
# Large number repeats
c4 <- colClasses("321{MyClass,c,i,d}")
c5 <- rep(c("MyClass", "character", "integer", "double"), times=321)
stopifnot(identical(c4, c5))
|