Way too much data saved for pipe calls

[krlmlr]

This prompted the inhibition of recursion in #13, but we actually need this data.

Sys.setenv(COLLECTOR_PATH = ".")
options(conflicts.policy = list(warn = FALSE))
library(dplyr)

data.frame(a = 1) %>%
  filter(a == 1) %>%
  mutate(b = 2) %>%
  select(a)
#>   a
#> 1 1

data.frame(a = 1) |>
  filter(a == 1) |>
  mutate(b = 2) |>
  select(a)
#>   a
#> 1 1

d1 <- data.frame(a = 1)
d2 <- filter(d1, a == 1)
d3 <- mutate(d2, b = 2)
d4 <- select(d3, a)

fs::dir_info(glob = "*.qs")[1:3]
#> # A tibble: 9 × 3
#>   path            type         size
#>   <fs::path>      <fct> <fs::bytes>
#> 1 00001-filter.qs file        1.14M
#> 2 00002-mutate.qs file        1.37M
#> 3 00003-select.qs file          244
#> 4 00004-filter.qs file        1.51M
#> 5 00005-mutate.qs file        1.51M
#> 6 00006-select.qs file          242
#> 7 00007-filter.qs file          231
#> 8 00008-mutate.qs file          232
#> 9 00009-select.qs file          228

^{Created on 2024-04-24 with reprex v2.1.0}

[krlmlr]

It's the call that consumes all the memory, not the env 🤦

[krlmlr]

And clearing the attributes helps. PR in a minute.