tests/test_dQuote.R

source("helper/helper.R")

f = get("dQuote", envir = baseenv())
expect_same = makeCompareFun(f, backports:::dQuote)

expect_same("foo")
if (getRversion() >= "3.6.0") {
  expect_same("foo", q = TRUE)
  expect_same("foo", q = FALSE)
}


f = get("sQuote", envir = baseenv())
expect_same = makeCompareFun(f, backports:::sQuote)

expect_same("foo")
if (getRversion() > "3.6.0") {
  expect_same("foo", q = TRUE)
  expect_same("foo", q = FALSE)
}

Try the backports package in your browser

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

backports documentation built on June 24, 2024, 5:24 p.m.