## Not run:
# source_info <- create_source_file_dir("adaprHome","tree_controller.R")
# testfile <- file.path(source_info$results.dir,"test.csv")
# fileinfo <- Create.file.info(dirname(testfile),basename(testfile),"cars dataset")
# Write.cap(cars,fileinfo,write.csv,source_info,row.names=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab