tagCloud = function(tagData, htmlOutput = "tagCloud.html",
SWFPath, JSPath, divId = "tagCloudId", width = 500, height = 400,
transparent = FALSE, tcolor = "333333", tcolor2 = "009900",
hicolor = "ff0000", distr = "true", tspeed = 100, version = 9,
bgcolor = "ffffff", useXML = FALSE, htmlTitle = "Tag Cloud",
noFlashJS, target = NULL, scriptOnly = FALSE) {
if (missing(SWFPath))
SWFPath = "http://www.roytanck.com/wp-content/plugins/wp-cumulus/tagcloud.swf"
if (missing(JSPath))
JSPath = "http://www.roytanck.com/wp-content/plugins/wp-cumulus/swfobject.js"
if (missing(noFlashJS))
noFlashJS = "This will be shown to users with no Flash or Javascript."
tagXML = sprintf("%s", paste(sprintf("%s",
tagData$link, tagData$count, if (is.null(target))
""
else sprintf(" target='%s'", target), if (is.null(tagData$color))
""
else ifelse(is.na(tagData$color), sprintf(" color='0x%s'",
tagData$color, ""), ""), if (is.null(tagData$hicolor))
""
else ifelse(is.na(tagData$hicolor), sprintf(" hicolor='0x%s'",
tagData$hicolor, ""), ""), tagData$tag), collapse = ""))
if (useXML)
cat(tagXML, file = file.path(dirname(htmlOutput), "tagCloud.xml"))
cat(ifelse(scriptOnly, "",
sprintf("
%s
",
htmlTitle)), sprintf("\t",
JSPath), sprintf("\t%s
", divId,
noFlashJS), sprintf("\t\n",
SWFPath, width, height, version, bgcolor, ifelse(transparent,
"\t\tso.addParam(\"wmode\", \"transparent\");\n",
""), tcolor, tcolor2, hicolor, tspeed, distr, ifelse(useXML,
"\t\tso.addVariable(\"xmlpath\", \"tagcloud.xml\");",
sprintf("\t\tso.addVariable(\"tagcloud\", \"%s\");",
tagXML)), divId), ifelse(scriptOnly, "", "\n\n"),
file = ifelse(scriptOnly, stdout(), htmlOutput), sep = "\n")
}