skip more on cran x2 combo

Author: mb706

tests/testthat/test_doublearrow.R

@@ -1,5 +1,5 @@
 context("double-arrow")
-
+skip_on_cran()
 test_that("Simple ops do what we expect", {
   p1 = PipeOpNOP$new("p1")
   p2 = PipeOpNOP$new("p2")

tests/testthat/test_gunion.R

@@ -1,5 +1,5 @@
 context("gunion")
-
+skip_on_cran()
 test_that("gunion", {
   g1 = PipeOpPCA$new() %>>% PipeOpScale$new(param_vals = list(scale = FALSE))
   g2 = PipeOpPCA$new(id = "pca2") %>>% PipeOpPCA$new(id = "xx")