Hover on symbol in a function with functional argument causes parse error

[renkun-ken]

test <- function(var1 = 0,
  var2 = function(x) length(x) == 0) {
  var2
}

Hover on var2 in the function body, the following error occurs:

internal error: Error: <text>:1:37: unexpected ')'
1: function(result) length(result) == 0)
                                        ^
Call: parse(text = func_text, keep.source = FALSE)
Stack trace:
1: parse(text = func_text, keep.source = FALSE)
2: hover_reply(id, uri, self$workspace, document, point)
3: self$deliver(hover_reply(id, uri, self$workspace, document, point))
4: dispatch(self, id, params)