R/info.modules.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

"infoModules" <-
    function()
                                        #   List loaded OpenBUGS components
{
    command <- "BugsEmbed.Modules"
    .CmdInterpreter(command)
    buffer <- file.path(tempdir(), "buffer.txt")
    result <- read.table(buffer, skip = 1, as.is=TRUE, sep="\t")[,-1]
    for(i in c(1,4,5,6))
        result[,i] <- gsub(" ", "", result[,i])
    names(result) <- c("Module", "Clients", "Version", "Maintainer", "Compiled", "Loaded")
    return(result)    
}