Subversion Repositories bdplot

#### bdp is a necessary function to edit the internal .BDPars
bdp <- function(...)
  {
    single <- FALSE
    args <- list(...)

### case one.
### No arguments.
### Should just return the contents of .BDPars
    if (!length(args)) {
      args <- as.list(.bdgetpars())
      args
    } else {
### case 2
### arguments given. These must be written to .BDPars
      BDPars <- .bdgetpars()
      for(arg in names(args)){
        BDPars[[arg]] <- args[[arg]]
      }
      .bdsetpars(BDPars)
    }
    
  }




### leftovers from par(). Maybe necessary.
## if (all(unlist(lapply(args, is.character)))) 
##         args <- as.list(unlist(args))
##       if (length(args) == 1) {
##         if (is.list(args[[1]]) | is.null(args[[1]])) 
##           args <- args[[1]]
##         else if (is.null(names(args))) 
##           single <- TRUE
##       }