more colon issues
more colon issues

YupingLu/pbdADIOS,RBigData/pbdADIOS,RBigData/pbdADIOS,YupingLu/pbdADIOS,YupingLu/pbdADIOS,go-ski/pbdADIOS,go-ski/pbdADIOS,go-ski/pbdADIOS,RBigData/pbdADIOS,RBigData/pbdADIOS
### Lastest load into a package.

.First.lib <- function(lib, pkg){
  if(! is.loaded("spmd_initialize", PACKAGE = "pbdMPI")){
    library.dynam("pbdMPI", "pbdMPI", lib)
    if(pbdMPI::comm.is.null(0L) == -1){
      pbdMPI::init()
    }
  }

  library.dynam("pbdADIOS", pkg, lib)
} # End of .First.lib().

.Last.lib <- function(libpath){
  pbdADIOS::adios.finalize(pbdMPI::comm.rank())
  library.dynam.unload("pbdADIOS", libpath)
} # End of .Last.lib().

### Lastest load into a package.

.First.lib <- function(lib, pkg){
  if(! is.loaded("spmd_initialize", PACKAGE = "pbdMPI")){
    library.dynam("pbdMPI", "pbdMPI", lib)
    if(pbdMPI::comm.is.null(0L) == -1){
      pbdMPI::init()
    }
  }

  library.dynam("pbdADIOS", pkg, lib)
} # End of .First.lib().

.Last.lib <- function(libpath){
  pbdADIOS::adios.finalize(pbdMPI:::comm.rank())
  library.dynam.unload("pbdADIOS", libpath)
} # End of .Last.lib().
