rquery (version 0.5.0)

op_diagram: Build a diagram of a optree pipeline.

Description

Build a diagram of a optree pipeline.

Usage

op_diagram(optree, ..., merge_tables = FALSE)

Arguments

optree

operation tree pipeline.

...

force other argument to be by name.

merge_tables

logical if TRUE merge all same table references into one node.

Value

character DiagrammeR::grViz() ready text.

Examples

# NOT RUN {
d <- mk_td('d',
             columns = qc(AUC, R2))
optree <- d %.>%
  extend_nse(., v %:=% ifelse(AUC>0.5, R2, 1.0)) %.>%
  quantile_node(.) %.>%
  natural_join(., d, jointype = "LEFT", by = "AUC") %.>%
  orderby(., "AUC")

cat(format(optree))

cat(op_diagram(optree))

if(requireNamespace("DiagrammeR", quietly = TRUE)) {
  optree %.>%
    op_diagram(., merge_tables = TRUE) %.>%
    DiagrammeR::grViz(.) %.>%
    print(.)
 # # or to render to png
 # optree %.>%
 #   op_diagram(., merge_tables = TRUE) %.>%
 #   DiagrammeR::DiagrammeR(diagram = ., type = "grViz") %.>%
 #     DiagrammeRsvg::export_svg(.) %.>%
 #     charToRaw(.) %.>%
 #     rsvg::rsvg_png(., file = "diagram1.png")
}

# }