# NOT RUN {
source_info <- create_source_file_dir("adaprHome","tree_controller.R")
testfile <- file.path(source_info$data.dir,"test.csv")
write.csv(cars,testfile)
fileinfo <- createFileInfo(dirname(testfile),basename(testfile),"cars dataset")
Read.cap(fileinfo,read.csv,source_info)
file.remove(file.path(source_info$data.dir,"test.csv"))
# }
Run the code above in your browser using DataLab