Nothing
#' Retrieve basic statistics from COLOURlovers.
#'
#' Retrieve basic statistics from the COLOURlovers API.
#'
#' Retrieve total numbers of colors, palettes, patterns, or lovers.
#'
#' @param type An API type. One of \dQuote{colors}, \dQuote{palettes},
#' \dQuote{patterns}, or \dQuote{lovers}.
#' @param fmt A format for the API response, one of \dQuote{xml} (the default)
#' or \dQuote{json}. This has essentially no effect on function behavior.
#'
#' @return A numeric value of class \dQuote{clstats}. This should be the same
#' regardless of the value of \code{fmt}.
#'
#' @export
#'
#' @aliases clstats print.clstats
#'
#' @author Thomas J. Leeper
#' @references \url{http://www.colourlovers.com/api/#stats}
#'
#' @examples \dontrun{
#' clstats('colors')
#' clstats('palettes')
#' clstats('patterns')
#' clstats('lovers')
#' }
clstats <- function(type, fmt = 'xml') {
type <- match.arg(type, c('colors', 'palettes', 'patterns', 'lovers'))
out <- as.numeric(unlist(clquery('stats', type, fmt = fmt)))
class(out) <- c('clstats', class(out))
attr(out, 'clstat_type') <- type
return(out)
}
#' @export
print.clstats <- function(x, ...) {
cat('Total ', attr(x, 'clstat_type'), ': ', x, '\n', sep = '')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.