attempt to hack the setwd based on hostname in R