#' apply_effects
#'
#' Takes a shiny input and applies `magick` filters based on those inputs
#'
#' @param inputs A list of valid `magick` effects
#' @param image A object returned by `magick::image_read`
#'
#' @return A pointer to a 'magick-image' object
#' @keywords internal
#'
apply_effects <- function(inputs, image){
if("negate" %in% inputs){
image <- magick::image_negate(image)
}
if("charcoal" %in% inputs){
image <- magick::image_charcoal(image)
}
if("edge" %in% inputs){
image <- magick::image_edge(image)
}
if("despeckle" %in% inputs){
image <- magick::image_despeckle(image)
}
if("reduce_noise" %in% inputs){
image <- magick::image_reducenoise(image)
}
return(image)
}
#' effects_list
#'
#' List of available image effects
#'
#' @return List of elements
#' @keywords internal
effects_list <- function(){
effects_list <- list("negate", "charcoal", "edge", "despeckle", "reduce_noise")
return(effects_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.