`expect_snapshot_value()` with style = "deparse" - fail on `integer(0)`

[tentacles-from-outer-space]

I came across another case where the function does not work:

x <- dplyr::group_by(head(iris, 1), Species)
expect_snapshot_value(x, "deparse")
# Error in integer(0) : could not find function "integer"

Problem could be solved by adding another functions to https://github.com/r-lib/testthat/blob/main/R/snapshot-value.R#L71. But I think it's better to use baseenv() instead of emptyenv():

reparse <- function(x) {
  env <- env(baseenv(),
    new = methods::new,
    getClass = methods::getClass
  )

  eval(parse(text = x), env)
}

This should help with #1678

Side note: there is repeated definition of reparse: https://github.com/r-lib/testthat/blob/main/R/snapshot-value.R#L92

[hadley]

Using baseenv() is not advisable because it means running your snapshot tests could run arbitrary code, which is surprising and dangerous. (But we can definitely add integer() and friends).