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

##       }