inst/tinytest/test_let_null.R

test_let_null <- function() {
  e1 = as.character(let(c("z"= "z"), dDT[,"x":=NULL], eval=FALSE))
  e2 = as.character(let(list(), dDT[,"x":=NULL], eval=FALSE))
  expect_equal(e1, e2)

  invisible(NULL)
}

test_let_null()

Try the wrapr package in your browser

Any scripts or data that you put into this service are public.

wrapr documentation built on Aug. 20, 2023, 1:08 a.m.