(1) Set/jump to working dir:
# Grab the WD from the file location and set it
library(rstudioapi)
home <- getActiveDocumentContext()$path
setwd(dirname(home)); getwd(); setwd('..')
home <- getwd(); getwd()
[Read More]