setwd_to_active_doc function

Set working directory to active document in RStudio