context("assignment detecting functions work")
test_that("can strip off assignment", {
r1 <- checkr:::skip_assign(quo(x <- 3 + 2))
expect_equal(r1, quo(3 + 2))
r2 <- checkr:::skip_assign(quo(x <- y <- 3 + 2))
expect_equal(r2, quo(3+2))
r3 <- checkr:::skip_assign(quo(3 + 2))
expect_equal(r3, quo(3+2))
r4 <- checkr:::skip_assign(quo(3 + 2 -> z))
expect_equal(r4, quo(3 + 2))
r5 <- checkr:::skip_assign(quo(2))
expect_equal(r5, quo(2))
})
test_that("can identify name to which assignment is being made", {
r1 <- checkr:::get_assignment_name(quo(x <- 3 + 2))
expect_equal(r1, "x")
r2 <- checkr:::get_assignment_name(quo(3 + 2 -> x))
expect_equal(r2, "x")
r3 <- checkr:::get_assignment_name(quo(3 + 2))
expect_equal(r3, "")
r4 <- checkr:::get_assignment_name(quo(x <- y <- 3 + 2))
expect_equal(r4, "x")
})
test_that("simplify_ex removes assignment and extraneous parentheses", {
r1 <- checkr:::simplify_ex(quo(x <- 3 + 2))
expect_equal(r1, quo(3 + 2))
r2 <- checkr:::simplify_ex(quo(x <- (3 + 2) ))
expect_equal(r2, quo(3 + 2))
r3 <- checkr:::simplify_ex(quo(x <- y <- ( (3+2) ) ))
expect_equal(r3, quo(3 + 2))
r4 <- checkr:::simplify_ex(quo( ( (3+2) ) ))
expect_equal(r4, quo(3 + 2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.