R/ifelseimage.R

In NumbersInternational/flipPictographs: Pictograph htmlwidgets

#' IfElseImage
#'
#' Conditionally shows an image as a htmlwidget
#' @param condition Expression evaluating to \code{TRUE} or {FALSE} that determines which image is displayed.
#' @param true.image URL to image (jpeg, png or svg) to be shown when \code{condition} is \code{TRUE}.
#' @param false.image URL to image (jpeg, png or svg) to be shown when \code{condition} is \code{FALSE}.
#' @examples
#' \dontrun{
#' IfElseImage(TRUE)
#' IfElseImage(3 < 2,
#'             "https://displayrcors.displayr.com/images/thumbsup_grey.svg",
#'             "https://displayrcors.displayr.com/images/thumbsdown_grey.svg")
#' }
#' @export

IfElseImage <- function(condition,
                    true.image  = "https://displayrcors.displayr.com/images/uparrow_grey.svg",
                    false.image = "https://displayrcors.displayr.com/images/downarrow_grey.svg")
{
    if (is.na(condition) || !is.logical(condition))
        stop("Parameter 'condition' should be TRUE or FALSE.")

    image <- if (condition) true.image else false.image
    SinglePicto(1, 1, is.custom.url = TRUE, image = image, auto.size = TRUE)
}