bayesEst "Java-Object" needs to be prettified

[kingfish777]

f <- bayesEst(df = dat[sample(nrow(dat), replace = FALSE, size = 0.001*nrow(dat)),], significance = 0.05, depth = 2, verbose = TRUE); plot(igraph.from.graphNEL(f$graphNEL))
# where dat is a large, sparse binary matrix
> f$bayesIm
[1] "Java-Object{\n\nNode: aspirin\n\nvaricosity\tanticoagulants\tvascular_diseases\tesophageal_varices\tmalloryHYPHENweiss_syndrome\tacute_gastric_mucosal_erosion\t\n0\t0\t0\t0\t0\t0\t0.9294\t0.0706
\t\n0\t0\t1\t0\t0\t0\t0.6000\t0.4000\t\n0\t1\t0\t0\t0\t0\t0.7619\t0.2381\t\n0\t1\t1\t0\t0\t0\t�\t�\t\n1\t0\t0\t0
\t0\t0\t0.7586\t0.2414\t\n1\t0\t1\t0\t0\t0\t�\t�\t\n1\t1\t0\t0\t0\t0\t1.0000\t0.0000\t\n1\t1\t1\t0\t0\t0\t�\t�
\t\n\nNode: hemorrhoids\n\nesophageal_varices\tmalloryHYPHENweiss_syndrome
\tacute_gastric_mucosal_erosion\tmedication\tade\t\n0\t0\t0\t0\t0\t0.9932\t0.0068\t\n0\t0\t0\t0\t1\t0.8367
\t0.1633\t\n0\t0\t0\t1\t0\t0.9468\t0.0532\t\n0\t0\t0\t1\t1\t0.8333\t0.1667\t\n\nNode: varicosity\n
\nanticoagulants\tesophageal_varices\tmalloryHYPHENweiss_syndrome
\tacute_gastric_mucosal_erosion\tade\t\n0\t0\t0\t0\t0\t0.9901\t0.0099\t\n0\t0\t0\t0\t1\t0.8431\t0.1569
\t\n1\t0\t0\t0\t0\t0.8947\t0.1053\t\n1\t0\t0\t0\t1\t1.0000\t0.0000\t\n\nNode: anticoagulants\n
\nliver_cirrhosis\tshigella\tesophageal_... <truncated>

Very cool new feature! Can't wait until it is "purdied" up!