t1 <-
"
| a | var2 | C |
|---+------+-----|
| 2 | may | 3.4 |
| 7 | feb | 4.7 |
"
d <- read.org.table(text = t1)
d
stopifnot(dim(d) == c(2, 3),
identical(names(d), c("a", "var2", "C")),
d[,"a"] == c(2,7))
Run the code above in your browser using DataLab