## Not run:
# source_info <- create_source_file_dir("adaprHome","tree_controller.R")
# write.csv(cars,file.path(source_info$data.dir,"test.csv"))
# # Read with any function
# temp <- utils::read.csv(file.path(source_info$data.dir,"test.csv"))
# ReadTrack("test.csv","cars dataframe")
# # Will track the file as though read with Read().
# file.remove(file.path(source_info$data.dir,"test.csv"))
# ## End(Not run)
Run the code above in your browser using DataLab