identify machine name to adapt server connections or directories

identifymachine.R

# Identify what machine you are running on in R
#  Use [[ to get the name out of entry
#  Help from  http://r.789695.n4.nabble.com/computer-name-td3593120.html
k.machine.name <- Sys.info()[["nodename"]]

k.dir.proj = "C:/Users/Michael/GitHub/FVCA" #ALIEN
if (identical(k.machine.name, "FVCA-BLOOMBERG")) {
  k.dir.proj <- "C:/Users/Info/Documents/GitHub/FVCA" #FVCA-BLOOMBERG OVERRIDE 
}