R/get_lib.r

In pbdMPI: R Interface to MPI for HPC Clusters (Programming with Big Data Project)

### This file is only called by
###   "pbd*/src/Makevars.in" and "pbd*/src/Makevar.win"
### to find the default configurations from
###   "pbd*/etc${R_ARCH}/Makconf".
get.lib <- function(arg, arch, package = "pbdPROF"){
  if(.Platform$OS.type == "windows"){
    if(arch != "/i386" || arch != "/x64"){
      arch <- sessionInfo()$R.version$arch
      if(arch == "i386"){
        arch <- "/i386"
      } else if(arch == "x86_64"){
        arch <- "/x64"
      } else{
        cat(arch, "is not matched.\n")
      }
    }
  }

  file.name <- paste("./etc", arch, "/Makeconf", sep = "")
  file.path <- tools::file_path_as_absolute(
                 system.file(file.name, package = package))
  ret <- scan(file.path, what = character(), sep = "\n", quiet = TRUE)

  id <- grep(paste("^", arg, " = ", sep = ""), ret)
  if(length(id) > 0){
    lib.file <- gsub(paste("^", arg, " = (.*)", sep = ""), "\\1", ret[id[1]])
    file.path <- tools::file_path_as_absolute(
                   system.file(lib.file, package = package))
    cat(file.path)
  } else{
    comm.stop("The arg is not found.")
  }

  invisible()
} # End of get.lib().