library(knitr) print(getwd())
## [1] "/home/mike/tmp"
opts_knit$set(root.dir='/home/mike/tmp') print(getwd())