#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.