Implement $to_dot() for LazyFrame

[etiennebacher]

library(polars)

query = pl$LazyFrame(mtcars)$
  filter(pl$col("drat") > 3)$
  with_columns(foo = pl$col("mpg") + pl$col("cyl"), bar = pl$mean("mpg"))

query$show_graph(raw_output = TRUE) |> cat()
#> graph  polars_query {
#> "WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]" -- "TABLE
#> π */11;
#> σ (col(\"drat\")) > (3.0) [(0, 1)]"
#> 
#> "WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]"[label="WITH COLUMNS [\"foo\",\"bar\"]"]
#> "TABLE
#> π */11;
#> σ (col(\"drat\")) > (3.0) [(0, 1)]"[label="TABLE
#> π */11;
#> σ (col(\"drat\")) > (3.0)"]
#> 
#> }

query$show_graph(width = "400px")

[etiennebacher]

I don't understand why snapshots fail on some platforms only. @eitsupi can you reproduce some of those failures locally?

[eitsupi]

I don't understand why snapshots fail on some platforms only. @eitsupi can you reproduce some of those failures locally?

I found that running the function over and over did not always return the same result each time.

> query$show_graph(raw_output = TRUE) |> cat()
graph  polars_query {
"WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]" -- "TABLE
π */11;
σ (col(\"drat\")) > (3.0) [(0, 1)]"

"TABLE
π */11;
σ (col(\"drat\")) > (3.0) [(0, 1)]"[label="TABLE
π */11;
σ (col(\"drat\")) > (3.0)"]
"WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]"[label="WITH COLUMNS [\"foo\",\"bar\"]"]

}
> query$show_graph(raw_output = TRUE) |> cat()
graph  polars_query {
"WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]" -- "TABLE
π */11;
σ (col(\"drat\")) > (3.0) [(0, 1)]"

"WITH COLUMNS [\"foo\",\"bar\"] [(0, 0)]"[label="WITH COLUMNS [\"foo\",\"bar\"]"]
"TABLE
π */11;
σ (col(\"drat\")) > (3.0) [(0, 1)]"[label="TABLE
π */11;
σ (col(\"drat\")) > (3.0)"]

[eitsupi]

Thanks!