R/dualwd.R

Defines functions dualwd

dualwd <- function(win = x, mac = y){
  if(Sys.info()['sysname'] == "Windows"){
    setwd(win)
    return(cat("Using your Windows working directory"))
    
  } else {
    setwd(mac)
    return(cat("Using your macOS working directory"))
    
  }
}
jackobailey/jbmisc documentation built on Nov. 10, 2018, 1:08 a.m.