context("f_unwrap") test_that("f_unwrap substitutes values", { n <- 100 f1 <- f_unwrap(~ x + n) f2 <- f_new(quote(x + 100), env = parent.env(environment())) expect_identical(f1, f2) }) test_that("f_unwrap substitutes even in globalenv", { .GlobalEnv$`__1` <- 1 expect_equal(f_rhs(f_unwrap(f_new(quote(`__1`), env = globalenv()))), 1) }) test_that("doesn't go past empty env", { f <- f_new(quote(x == y), env = emptyenv()) expect_equal(f_unwrap(f), f) })
Generated by dwww version 1.15 on Thu May 23 21:00:11 CEST 2024.