#' Image Effects
#'
#' High level effects applied to an entire image.
#' These are mostly just for fun.
#'
#' @name effects
#' @inheritParams editing
#' @family image
#' @rdname effects
#' @export
#' @param times number of times to repeat the despeckle operation
#' @examples logo <- image_read("logo:")
#' image_despeckle(logo)
image_despeckle <- function(image, times = 1L){
assert_image(image)
magick_image_despeckle(image, times)
}
#' @export
#' @rdname effects
#' @examples image_reducenoise(logo)
image_reducenoise <- function(image, radius = 1L){
assert_image(image)
magick_image_reducenoise(image, radius)
}
#' @export
#' @rdname effects
#' @param noisetype string with a
#' [noisetype](https://www.imagemagick.org/Magick++/Enumerations.html#NoiseType) value
#' from [noise_types][noise_types].
#' @examples
#' image_noise(logo)
image_noise <- function(image, noisetype = "gaussian"){
assert_image(image)
magick_image_noise(image, noisetype)
}
#' @export
#' @rdname effects
#' @param radius radius, in pixels, for various transformations
#' @param sigma the standard deviation of the Laplacian, in pixels.
#' @examples
#' image_blur(logo, 10, 10)
image_blur <- function(image, radius = 1, sigma = 0.5){
assert_image(image)
magick_image_blur(image, radius, sigma)
}
#' @export
#' @rdname effects
#' @param angle angle, in degrees, for various transformations
#' @examples
#' image_motion_blur(logo, 10, 10, 45)
image_motion_blur <- function(image, radius = 1, sigma = 0.5, angle = 0){
assert_image(image)
magick_image_motion_blur(image, radius, sigma, angle)
}
#' @export
#' @rdname effects
#' @examples
#' image_charcoal(logo)
image_charcoal <- function(image, radius = 1, sigma = 0.5){
assert_image(image)
magick_image_charcoal(image, radius, sigma)
}
#' @export
#' @rdname effects
#' @examples
#' image_oilpaint(logo, radius = 3)
image_oilpaint <- function(image, radius = 1){
assert_image(image)
magick_image_oilpaint(image, radius)
}
#' @export
#' @rdname effects
#' @examples
#' image_emboss(logo)
image_emboss <- function(image, radius = 1, sigma = 0.5){
assert_image(image)
magick_image_emboss(image, radius, sigma)
}
#' @export
#' @rdname effects
#' @param factor image implode factor (special effect)
#' @examples
#' image_implode(logo)
image_implode <- function(image, factor = 0.5){
assert_image(image)
magick_image_implode(image, factor)
}
#' @export
#' @rdname effects
#' @examples
#' image_negate(logo)
image_negate <- function(image){
assert_image(image)
magick_image_negate(image)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.