read.bugs <- function(codafiles, ...){
    if(!is.R() && !requireNamespace("coda", quietly = TRUE))
        stop("package 'coda' is required to use this function")
    mcmc.list(lapply(codafiles, read.coda, 
                     index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
                     ...))
}