test_funcs/rando_plot.R

In jeffreyhorner/raconteur: Telling Stories with Data

# setwd("inst")
# source("../load.r")
# source("../test_funcs/index_try.R")
# app.skeleton(rando_plot)


rando_plot <- function(count = 100, ...) {
	plot( 
		rnorm(count), 
		main = paste('Cool Random Plot!'), 
		col = rainbow(count, alpha = runif(100, 0, 1)), 
		cex = c(2, 3, 4, 5, 10, 50, 100) / 10,
		...
	)
}

rando_plot_square <- function(count = 100, ...){
	rando_plot(count = count, pch = 15, ...)
}

rando_plot_circle <- function(count = 100, ...){
	rando_plot(count = count, pch = 16, ...)
}

rando_plot_triangle <- function(count = 100, ...){
	rando_plot(count = count, pch = 17, ...)
}