tests/testthat/test-magrittr-previous-readme.r

In TobCap/demagrittr: Decompile magrittr's Syntax to Normal R's Syntax

## https://github.com/smbache/magrittr/blob/59eae6bffa37a5672b9686ba759bf2ceb1a12e30/inst/doc/magrittr.md
context("magrittr previous readme")
suppressMessages(library("magrittr"))

test_that("equiv value2", {
  weekly <- quote(
    airquality %>%
    transform(Date = paste(1973, Month, Day, sep = "-") %>% as.Date) %>%
    aggregate(. ~ Date %>% format("%W"), ., mean)
  )
  ## unname() is required
  expect_identical(unname(eval(weekly)), unname(eval(demagrittr(weekly, FALSE, mode = "eager"))))
  expect_identical(unname(eval(weekly)), unname(eval(demagrittr(weekly, FALSE, mode = "lazy"))))
  expect_identical(unname(eval(weekly)), unname(eval(demagrittr(weekly, FALSE, mode = "promise"))))
  expect_false(any(all.names(demagrittr(weekly, FALSE, mode = "eager")) %in% "%>%"))
  expect_false(any(all.names(demagrittr(weekly, FALSE, mode = "lazy")) %in% "%>%"))
  expect_false(any(all.names(demagrittr(weekly, FALSE, mode = "promise")) %in% "%>%"))

  windy.weeks <- quote(
    airquality %>%
    transform(Date = paste(1973, Month, Day, sep = "-") %>% as.Date) %>%
    aggregate(. ~ Date %>% format("%W"), ., mean) %>%
    subset(Wind > 12, c(Ozone, Solar.R, Wind))
  )

  expect_identical(
    unname(eval(windy.weeks)),
    unname(eval(demagrittr(windy.weeks, FALSE, mode = "eager"))))
  expect_identical(
    unname(eval(windy.weeks)),
    unname(eval(demagrittr(windy.weeks, FALSE, mode = "lazy"))))
  expect_identical(
    unname(eval(windy.weeks)),
    unname(eval(demagrittr(windy.weeks, FALSE, mode = "promise"))))
  expect_false(any(all.names(demagrittr(windy.weeks, FALSE, mode = "eager")) %in% "%>%"))
  expect_false(any(all.names(demagrittr(windy.weeks, FALSE, mode = "lazy")) %in% "%>%"))
  expect_false(any(all.names(demagrittr(windy.weeks, FALSE, mode = "promise")) %in% "%>%"))

})