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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Do not modify this file since it was automatically generated from:
%
% colClasses.R
%
% by the Rdoc compiler part of the R.oo package.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\name{colClasses}
\alias{colClasses.default}
\alias{colClasses}
\title{Creates a vector of column classes used for tabular reading}
\description{
Creates a vector of column classes used for tabular reading based on a compact format string.
}
\usage{
\method{colClasses}{default}(fmt, ...)
}
\arguments{
\item{fmt}{A \code{\link[base]{character}} string specifying the column-class format.
This string is first translated by \code{\link[base]{sprintf}}().}
\item{...}{Optional arguments for the \code{\link[base]{sprintf}}() translation.}
}
\value{
Returns a \code{\link[base]{vector}} of \code{\link[base]{character}} strings.
}
\author{Henrik Bengtsson}
\examples{
# 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))
}
\seealso{
\code{\link[utils]{read.table}}.
}
\keyword{programming}
|
