Bug: pipe_vizr not parsing base R pipes correctly

[pebenbow]

I thought I fixed this today, but I guess not.

When using magrittr pipes, the diagram renders successfully:

pipe_vizr(
  output <- mtcars %>%
    select(mpg, disp, wt) %>%
    filter(wt > 2),
  direction = "TB"
)

However, when running the same pipeline with base R pipes, the diagram goes wonky:

pipe_vizr(
  output <- mtcars |>
    select(mpg, disp, wt) |>
    filter(wt > 2),
  direction = "TB"
)

I don't think this behavior occurs with pipe_vizr_file(), so I think this is localized to the original function.