inst/example_interaction/routes.R

In jeffreyhorner/raconteur: Telling Stories with Data

###########################################

###########################################
# Top level HTML pages
###########################################

# Returned when no dataset's example renders a plot
rando_plot <- function(count = 100){
	# cat("starting rando plot\n", file = stderr())
	t <- tempfileWithExtension()

	# cat("starting png dev on file: ", t, "\n", file = stderr())
	png(t)

	# cat("starting plot with count: ", count, "\n", file = stderr())
	plot( 
		rnorm(count), 
		main = paste('Cool Random Plot!'), 
		col = rainbow(count, alpha = runif(100, 0, 1)), 
		pch = '.', cex = c(2, 3, 4, 5, 10, 50, 100)
	)
	# cat("done printing plot", file = stderr())

	dev.off()
	# cat("dev off: file path: ", t, "\n", file = stderr())
	t
}


router$get("/doc/html/index.html", function() {redirect("/")})
router$get("/", function() {redirect("index.html")})

# View the interaction "index.html" page
router$get("/index.html", function() {
        # brews the file index.html in the /views dir
        render_brew("index",list())
})


# Generate an image of the rando plot
router$get("/rando.png", function(query, ...) {
	
	# cat("Making a rando plot!!!!!!!!!\n", file = stderr())
	count <- 100
	if(!missing(query)) {
		# print(query["count"])
		if(length(query[["count"]])){
			count <- query[["count"]]
		}
	}
	
	# brews the file index.html in the /views dir
	static_file(rando_plot(count), remove = TRUE)
})