R/samples.monitors.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

"samplesMonitors" <-
function(node)
#   List all sample monitors corresponding to node
{
  if (is.R()){
    command <- paste("SamplesEmbed.SetVariable(", sQuote(node), 
        ");SamplesEmbed.StatsGuard;SamplesEmbed.Labels",sep="")
    .CmdInterpreter(command)
    buffer <- file.path(tempdir(), "buffer.txt")
    rlb <- readLines(buffer)
    len <- length(rlb)
    if (len == 1 && rlb == "command is not allowed (greyed out)")
        message(rlb)
    else{
        if(len == 0){
            message("model has probably not yet been updated")
            invisible("model has probably not yet been updated")
        }
        else {
            scan(buffer, what = "character", quiet = TRUE, sep="\n")
        }
    }
  } else {
    sampsMonsSingle <- function(node){
      command <- paste("SamplesEmbed.SetVariable(", sQuote(node), 
          ");SamplesEmbed.StatsGuard;SamplesEmbed.Labels",sep="")
    .CmdInterpreter(command)
      buffer <- file.path(tempdir(), "buffer.txt")
      rlb <- readLines(buffer)
      len <- length(rlb)
      if (len == 1 && rlb == "command is not allowed (greyed out)")
          message(rlb)
      else{
          if(len == 0){
              message("model has probably not yet been updated")
              invisible("model has probably not yet been updated")
          }
          else {
              scan(buffer, what = "character", sep="\n")
          }
      }
    }
    for(i in seq(along=node)){
      mons <- lapply(node, sampsMonsSingle)
    }
    mons <- unlist(mons)
      return(mons)

  }
}