#' Circle
#'
#' Draws a circle
#' @param color One of 'red', 'green' or 'yellow' or a hex color code.
#' @param opacity A numeric value between 0 and 1.
#' @param print.config If set to \code{TRUE}, the JSON string used to generate pictograph will be printed to standard output. This is useful for debugging.
#' @importFrom rhtmlPictographs graphic
#' @examples
#' Circle("red")
#' Circle("#000000", opacity=0.2)
#' @export
Circle <- function(color = "red", opacity = 0.9, print.config = FALSE)
{
if (opacity < 0.0 || opacity > 1.0)
stop("'opacity' should be a numeric between 0 and 1.")
if (tolower(color) == "red")
color <- rgb(255, 76, 92, maxColorValue = 255)
if (tolower(color) == "yellow")
color <- rgb(252, 174, 50, maxColorValue = 255)
if (tolower(color) == "green")
color <- rgb(39, 195, 153, maxColorValue = 255)
config <- sprintf("{\"variableImage\":\"circle:%s:opacity=%f\", \"resizable\":\"true\"}",
color, opacity)
if (print.config)
cat(config, "\n")
graphic(config)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.