R/svg.circles.R

In aaronolsen/svgViewR: 3D Animated Interactive Visualizations Using SVG and WebGL

svg.circles <- function(x, y=NULL, col=NULL, col.fill="black", 
	col.stroke="black", z.index=0, layer="", label="", r=1, lwd=2, opacity.stroke=1, 
	opacity.fill=1, file=NULL){

	# If file is null, set current connection
	if(is.null(file)){

		# Give error if svg.new has not been called
		if(is.null(getOption("svg_glo_con"))) stop("svg.new has not been called yet.")

		# Get current connection
		file <- getOption("svg_glo_con")
	}

	svgviewr.circles(x=x, file=file, y=y, col=col, col.fill=col.fill, 
		col.stroke=col.stroke, z.index=z.index, layer=layer, label=label, r=r, lwd=lwd, 
		opacity.stroke=opacity.stroke, opacity.fill=opacity.fill)

	# Suppress return of value in console
	ret = NULL
}