R/mlxComputeRLibraryBuilder.R

In MarcLavielle/mlxR: Simulation of Longitudinal Data

#' @importFrom utils installed.packages install.packages
mlxComputeRLibraryBuilder <- function (lixoftHOME)
{
  
  myOS <- Sys.info()['sysname'];
  lixoftHOME=normalizePath(lixoftHOME);
  
  #--- install "Rcpp" or check "Rcpp" version
  packinfo <- installed.packages()
  if (!is.element("Rcpp", packinfo[,1])){
    .error("Please install Rcpp")
    return(invisible(FALSE))
  }
  
  # --- Check the Rcpp version installed is the correct one
  installedRcppVersion = packinfo[c("Rcpp"), c("Version")]
  requiredRcppVersion = "0.11.0";
  myOS <- Sys.info()['sysname'];
  if (myOS == "Windows") {
    if (installedRcppVersion < requiredRcppVersion){
      .error("Either install version 0.11.0 or delete file runtime/lib/mlxComputeR.dll, install Rtools and recompile")
      return(invisible(FALSE))
    }
  }
  
  
  
  #STEP 02: Test if mlxComputeR.so / mlxComputeR.dll already exists ?
  mlxComputeFileName = sprintf("%s/lib/mlxComputeR.so", lixoftHOME);
  if (myOS == "Windows")
  {
    mlxComputeFileName = sprintf("%s/lib/mlxComputeR.dll", lixoftHOME);
  }
  bFileExists = file.exists(mlxComputeFileName)
  
  if (!bFileExists)
  {
    # STEP 03: If mlxComputeR.so / mlxComputeR.dll does not exist it shall be created
    # STEP 03.1: Create file Makevars (containing compilation directives) in directory mlxLibrary/.../runtime/lib/src
    makeVarsFile = sprintf("%s/lib/mlxComputeR/src/Makevars", lixoftHOME);
    if (myOS == "Windows")
    {
      makeVarsFile = sprintf("%s/lib/mlxComputeR/src/Makevars.win", lixoftHOME);
    }
    fileConn<-file(makeVarsFile, open="w");
    if (myOS == "Linux")
    {
      writeLines("PKG_CPPFLAGS += -DCONNECTOR_R -std=c++0x", con = fileConn, sep = "\n", useBytes = FALSE);
    }else if (myOS == "Darwin"){
      writeLines("PKG_CPPFLAGS += -DCONNECTOR_R -std=c++11", con = fileConn, sep = "\n", useBytes = FALSE);
    }else{
      writeLines("PKG_CPPFLAGS += -DCONNECTOR_R", con = fileConn, sep = "\n", useBytes = FALSE);
      writeLines("CXX_STD = CXX11", con = fileConn, sep = "\n", useBytes = FALSE);
    }
    #
    writeLines("PKG_LIBS=`Rscript -e \"Rcpp:::LdFlags()\"`", con = fileConn, sep = "\n", useBytes = FALSE);
    if (myOS == "Linux")
    {
      writeLines("PKG_LIBS += -Wl,-rpath,\"$$\"\"ORIGIN\"", con = fileConn, sep = "\n", useBytes = FALSE);
    }
    if (myOS =="Darwin")
    {
      dirWheremlxComputeRIsInstalled = sprintf("%s/lib", lixoftHOME);
      pkglibarg = sprintf("PKG_LIBS += -Wl,-rpath,%s",dirWheremlxComputeRIsInstalled);
      writeLines(pkglibarg, con = fileConn, sep = "\n", useBytes = FALSE);
      #	writeLines("PKG_LIBS += -Wl,-rpath,\"@\"\"rpath\"", con = fileConn, sep = "\n", useBytes = FALSE);
    }
    
    lineToAppend = sprintf("PKG_LIBS += -L\"%s/lib\" -lmlxCompute_CAPI", lixoftHOME);
    writeLines(lineToAppend, con = fileConn, sep = "\n", useBytes = FALSE);
    close(fileConn);
    
    # STEP 03.2: Define tempCompilationDirectory = mlxLibrary/.../runtime/lib/temp the directory where the library will be compiled
    tempCompilationDirectory = sprintf("%s/lib/temp", lixoftHOME);
    dir.create(tempCompilationDirectory)
    
    # STEP 03.3: Launch compilation
    pckName = sprintf("%s/lib/mlxComputeR", lixoftHOME);
    libArgument = sprintf("--library=%s", tempCompilationDirectory);
    install.packages(pckName, tempCompilationDirectory, repos = NULL, INSTALL_opts = c("--no-multiarch", "--no-test-load"), type = "source");
    
    # STEP 03.4: Copy mlxComputeR.so / mlxComputeR.dll from mlxLibrary/.../runtime/lib/temp/mlxComputeR/libs to  mlxLibrary/.../runtime/lib
    fromFile = sprintf("%s/mlxComputeR/libs/mlxComputeR.so", tempCompilationDirectory);
    toFile = sprintf("%s/lib/mlxComputeR.so", lixoftHOME);
    if (myOS == "Windows")
    {
      if (Sys.info()['machine'] == "x86-64")
      {
        fromFile = sprintf("%s/mlxComputeR/libs/x64/mlxComputeR.dll", tempCompilationDirectory);
      } else {
        fromFile = sprintf("%s/mlxComputeR/libs/i386/mlxComputeR.dll", tempCompilationDirectory);
      }
      toFile = sprintf("%s/lib/mlxComputeR.dll", lixoftHOME);
    }
    file.rename(fromFile, toFile)
    
    # STEP 03.5: Remove directory tempCompilationDirectory
    unlink(tempCompilationDirectory, recursive = TRUE)
    
    # STEP 03.6: Remove object and lib files created in mlxLibrary/.../runtime/lib/mlxComputeR/src
    dirToClean = sprintf("%s/lib/mlxComputeR/src", lixoftHOME);
    listFilesToErase = list.files(path = dirToClean, pattern = "([.]o){1}", full.names = TRUE);
    for (iFile in 1:length(listFilesToErase))
    {
      file.remove(listFilesToErase[iFile])
    }
    listFilesToErase = list.files(path = dirToClean, pattern = "([.]so){1}", full.names = TRUE);
    if (myOS == "Windows")
    {
      listFilesToErase = list.files(path = dirToClean, pattern = "([.]dll){1}", full.names = TRUE);
    }
    for (iFile in 1:length(listFilesToErase))
    {
      file.remove(listFilesToErase[iFile])
    }
  }
  
  # STEP 04: load Rcpp and lxLibrary/.../runtime/lib/mlxComputeR.so(.dll)
  if (!requireNamespace("Rcpp", quietly = TRUE)){
    .error("Error during Rcpp library loading")
    return(invisible(FALSE))
  }
  
  if (myOS == "Windows" )
  { 
    myCallingPath = getwd()
    myOldENVPATH = Sys.getenv('PATH');
    #myNewENVPATH = sprintf("%s;%s/tools/MinGW/bin", myOldENVPATH, lixoftHOME);
    myNewENVPATH = sprintf("%s;%s/../tools/MinGW/bin;%s/tools/MinGW/bin", myOldENVPATH, lixoftHOME,lixoftHOME);
    Sys.setenv('PATH'=myNewENVPATH);
    dirWheremlxComputeRIsInstalled = sprintf("%s/lib", lixoftHOME);
    setwd(dirWheremlxComputeRIsInstalled);
    dyn.load(mlxComputeFileName);
    setwd(myCallingPath);
    
  }
  else {
    dyn.load(mlxComputeFileName)
  }
  
  return(invisible(is.loaded("mlxComputeR")))
}