image_func | R Documentation |
This is a convenience function for applying magick functions that take an image as the first argument and return an image. It's fully vectorised, so you can set separate argument values for each image.
image_func(stimuli, func, ...)
stimuli |
list of stimuli |
func |
the function or a string with the short name of the magick function (see |
... |
arguments to pass to the function |
These functions only affect the image, not the template. If a function changes the morphology of the image (e.g., "implode"), the template will not alter in the same way.
list of stimuli with new images
Stimulus manipulation functions
align()
,
crop_tem()
,
crop()
,
greyscale()
,
horiz_eyes()
,
mask_oval()
,
mask()
,
mirror()
,
pad()
,
resize()
,
rotate()
,
to_size()
stimuli <- demo_stim() |> resize(0.5) # make a photographic negative version image_func(stimuli, "negate") # set different argument values for each image image_func(stimuli, "implode", factor = c(0.2, -0.2)) # other image functions image_func(stimuli, "blur", 5, 3) image_func(stimuli, "contrast", sharpen = 1) image_func(stimuli, "oilpaint", radius = 5) image_func(stimuli, "colorize", opacity = 50, color = c("hotpink", "dodgerblue")) # load a logo image and superimpose it on each image logo <- system.file("extdata/logo.png", package = "webmorphR") |> magick::image_read() |> magick::image_resize(70) image_func(stimuli, "composite", logo, offset = "+5+10") # use a self-defined function testfunc <- function(image) { rot <- magick::image_rotate(image, 180) c(image, rot) |> magick::image_average() } image_func(stimuli, testfunc)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.