Deparsed anonymous function call containing line breaks with expr_deparse() cannot be re-parsed with parse_expr()

[szmsu2011]

I noticed that if an expression containing line breaks (such as in an anonymous function call) is deparsed with expr_deparse(), it cannot be re-parsed back into an expression with parse_expr() unless I collapse them with "\n" first.

(x <- expr((function(x) {
    x <- x + 1
    x
})(1)))
#> (function(x) {
#>     x <- x + 1
#>     x
#> })(1)

x |>
  expr_deparse() |>
  parse_expr()
#> Error in parse(text = elt): <text>:2:0: unexpected end of input
#> 1: (function(x) {
#>    ^

x |>
  expr_deparse() |>
  paste(collapse = "\n") |>
  parse_expr()
#> (function(x) {
#>     x <- x + 1
#>     x
#> })(1)

x |>
  expr_deparse() |>
  parse(text = _)
#> expression((function(x) {
#>     x <- x + 1
#>     x
#> })(1))

[lionel-]

Useful previous discussion about the plural variant parse_exprs(): #808