Skip to content

Instantly share code, notes, and snippets.

@chrismeserole
Last active December 19, 2015 19:08
Show Gist options
  • Save chrismeserole/71ec6d089a09bd5fe764 to your computer and use it in GitHub Desktop.
Save chrismeserole/71ec6d089a09bd5fe764 to your computer and use it in GitHub Desktop.
# set working directory
makePath <- function(path, macUser, winUser){
if(Sys.info()['sysname']=="Windows"){
retpath <- paste("C:/Users/", winUser, sep="")
} else {
retpath <- paste("/Users/", macUser, sep="")
}
return(paste(retpath, path, sep=""))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment