# NOT RUN {
mydata <- data.frame (N = 1:10, letter = c(rep ("A", 5), rep ("B", 4), "C"),
num = c(1, rep(1:4, 2), 5))
t1<-tempfile()
write.table (mydata, t1, sep = ";")
read_from_table_file (file = t1)
read_from_table_file (file = t1, select = TRUE, select.column.name = "letter",
select.val = c("A", "C"))
read_from_table_file (file = t1, select = TRUE, select.column.name = "letter",
select.val = c("A", "C"), unique=TRUE, choose.columns = TRUE,
column.names = c("letter", "num"))
read_from_table_file (file = t1, select = TRUE, select.column.name = "letter",
select.val = c("A", "C"), unique = TRUE, choose.columns = TRUE,
column.names = c("N", "num"))
read_from_table_file (file = t1, select = TRUE, select.column.name = "letter",
select.val = c("A", "C"), unique = TRUE, choose.columns = TRUE,
column.names = c("letter", "N"))
file.remove (t1)
# }
Run the code above in your browser using DataLab