context("explicit usage of namespace function with '::' or ':::'")
suppressMessages(library("magrittr"))
test_that("equiv value7", {
e1 <- quote(Nile %>% base::mean) # error
e2 <- quote(Nile %>% base::mean()) # run
e3 <- quote(Nile %>% base::mean(.)) # run
expect_error(eval(demagrittr(e1, FALSE, mode = "eager")))
expect_error(eval(demagrittr(e1, FALSE, mode = "lazy")))
expect_error(eval(demagrittr(e1, FALSE, mode = "promise")))
expect_identical(eval(e2), eval(demagrittr(e2, FALSE, mode = "eager")))
expect_identical(eval(e2), eval(demagrittr(e2, FALSE, mode = "lazy")))
expect_identical(eval(e2), eval(demagrittr(e3, FALSE, mode = "promise")))
expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "eager")))
expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "lazy")))
expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "promise")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.