## Not run:
# # Within an R script:
# source_info <- create_source_file_dir("adaprHome","tree_controller.R")
# # Inside R script body:
# write.csv(cars,file.path(source_info$results.dir,"test.csv"))
# Write(cars,"cars.csv","cars dataframe")
# # To examine effect:
# showResults()
# ## End(Not run)
Run the code above in your browser using DataLab