R/utils-print.R

In bnlearn: Bayesian Network Structure Learning, Parameter Learning and Inference

# advanced cat which correctly handles ini-like lines and short line widths.
wcat = function(header, value, indent = 2) {

  # get the number of available columns.
  columns = options("width")

  header = sprintf("%-40s", paste0(strrep(" ", indent), header, ":"))

  # blatantly ignore any line width shorter than 45, trying to support
  # that case is a losing proposition.
  if ((columns >= nchar(header) + nchar(value) + 1) || (columns < 45)) {

    # if there are enough columns print the string as is.
    cat(paste(header, value, sep = " "), "\n")

  }#THEN
  else {

    # if there are not enough columns print the header on one row
    # (left-aligned) and the value on the following line (right-aligned).
    cat(header, "\n", sprintf(paste("%", columns, "s", sep = ""), value), "\n")

  }#ELSE

}#WCAT

# advanced cat handles model strings and short line widths.
fcat = function(modelstr, indent = 0) {

  # measure the number of available columns.
  columns = options("width")

  if ((columns >= nchar(modelstr)) || columns < 45) {

    cat(strrep(" ", indent), modelstr, "\n")

  }#THEN
  else {

    cat(paste(strsplit(modelstr, "\\]")[[1]], "]", sep = ""),
      fill = TRUE, sep = "", labels = strrep(" ", indent))

  }#ELSE

}#FCAT