Losing argument names in [ call

[krlmlr]

This one seems fun, for some definition of fun. With most recent #56, 94bb159:

fun <- parse(keep.source = FALSE, srcfile = "test.R", text = "function() df[1, 1, drop = FALSE]")[[1]]
fun
#> function() df[1, 1, drop = FALSE]

constructive::construct(fun, check = TRUE)
#> quote(function() df[1, 1, FALSE])
#> Error in `check_round_trip()` at constructive/R/constructive.R:63:2:
#> ! {constructive} couldn't create code that reproduces perfectly the input
#> `original`:  `function() df[1, 1, drop = FALSE]`
#> `recreated`: `function() df[1, 1, FALSE]`

#> Backtrace:
#>     ▆
#>  1. └─constructive::construct(fun, check = TRUE)
#>  2.   └─constructive:::check_round_trip(...) at constructive/R/constructive.R:63:2
#>  3.     └─rlang::abort(c(msg)) at constructive/R/constructive.R:159:4

^{Created on 2022-10-15 with reprex v2.0.2}

[krlmlr]

It's not styler:

styler::style_text("function() df[1, 1, drop = FALSE]")
#> function() df[1, 1, drop = FALSE]

^{Created on 2022-10-15 with reprex v2.0.2}

[moodymudskipper]

Minimal reprex:

constructive::deparse_call(quote(a[b=1]))
#> a[1] 

[moodymudskipper]

Names were not considered with [ and [[

New behaviour:

fun <- parse(keep.source = FALSE, srcfile = "test.R", text = "function() df[1, 1, drop = FALSE]")[[1]]
fun
#> function() df[1, 1, drop = FALSE]

constructive::construct(fun, check = TRUE)
#> quote(function() df[1, 1, drop = FALSE])

^{Created on 2022-10-15 with reprex v2.0.2}

[krlmlr]

Seems to work now, thanks.