R/multigraph.R

In Modesto-Escobar/netCoin-2.x: Interactive Analytic Networks

multigraphCreate <- function(..., mode = c("default","parallel","frame"),
  mfrow = c(1,2),
  frame = 0, speed = 50, loop = FALSE, lineplots = NULL,
  dir = NULL, show = FALSE){

  diraux <- NULL
  if(!is.null(dir) && !identical(show,TRUE)){
    diraux <- dir
  }

  mode <- substr(mode[1],1,1)
  if(mode=="p"){
    obj <- rd3_multigraph(..., mfrow=mfrow, dir=diraux)
  }else if(mode=="f"){
    obj <- evolNetwork_rd3(..., frame=frame, speed=speed, loop=loop, lineplots=lineplots, dir=diraux)
  }else{
    obj <- rd3_multigraph(..., dir=diraux)
  }

  if(identical(show,TRUE)){
    if(is.null(dir)){
      plot(obj)
    }else{
      plot(obj,dir=dir)
    }
  }

  class(obj) <- c("mGraph",class(obj))
  return(obj)
}

multiPages <- rd3_multiPages
addImage <- rd3_addImage
addDescription <- rd3_addDescription