# NOT RUN {
#prepare example files
data(leafdata)
tf <- paste(tempdir(), "/", sep = "")
for (i in 1:7){
write.table(leafdata[[i]],paste(tf,names(leafdata)[i],sep=""),sep="\t")
}
#list of files
list.files(tf)
readtext.ij(tf)
unlink(list.files(tf))
# }
Run the code above in your browser using DataLab