library(magickGUI)
options("unit_test_magickGUI" = TRUE)
img <- wizard
img2 <- rose
scale1 <- "500x"