tests/testthat/test_interactive_fill.R

test_that("interactive_fill",
{
  skip_on_cran()
  iniv <- list(point = "+1+1", fuzz = 0)
  color <- "black"
  expected <- image_fill(img, color, iniv[[1]], iniv[[2]])
  expect_equal(expected, interactive_fill(img, color))
  expect_equal(iniv[[1]], interactive_fill(img, color, return_param = TRUE)[[1]])
  expect_equal(iniv[[2]], interactive_fill(img, color, return_param = TRUE)[[2]])
  expect_equal(expected, interactive_fill(img, color, scale = scale1))
})

Try the magickGUI package in your browser

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

magickGUI documentation built on July 12, 2021, 5:06 p.m.