if (FALSE) {
# Example 1: Set working directory to the source file location
setsource()
# Example 2: Set working directory to the source file location
# and assign path to an object
path <- setsource()
path
}
Run the code above in your browser using DataLab