CountUnixCPUs  <- function(cpuinfo = "/proc/cpuinfo"){
  tmpCmd  <- paste("grep processor ", cpuinfo, " | wc -l", sep = "")
  numCPU  <- as.numeric(system(tmpCmd, intern = TRUE))
  return(numCPU)
}

CountUnixCPUs()

multicore:::detectCores()