R/output_routes_r.R

In jeffreyhorner/raconteur: Telling Stories with Data

#' Make routes.R
#' Make a routes.R file that contains the main function to route and source for every function
#'
#' @param path path of folder were the file is to be saved
#' @param func_c character form of the function to be in main route
make_routes_r <- function(file_path, func_c) {
	
	print_line("# routes.R - contains two default routes
# 1. execute function - htmlpath/myFunc?arg1=\"A\"&arg2=5
# 2. view source of function - htmlpath/myFunc/source

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(...))
})


# load_html(fun_to_url(",func_c,", url = \"/eval/\")
# Execute Function
router$get(\"/eval/:func\", function(func, query, ...) {
	
	output <- eval(parse(text = func_string_with_query(func_c = func, query = query)))
	
	# brews the file output.html in the /views dir
	# render_brew(\"output\",list(header = \"Output\", output = output))
	raconteur_render_text(output)
})


# load_html(str_c(\"/source/\", ", func_c,"))
# View Source
router$get(\"/source/:func\", function(func, query, ...) {
	output <- body_text(func)
	# brews the file output.html in the /views dir
	# render_brew(\"output\",list(header = \"Source\", output = output))
	raconteur_render_text(output)
})



# load_html(fun_to_url(",func_c,", url = \"/pic/\")
# View Picture
router$get(\"/pic/:func\", function(func, query, ...) {

	f <- tempfileWithExtension(\"png\")
	png(f)
	  eval(parse(text = func_string_with_query(func_c = func, query = query)))
	dev.off()
	
	# brews the file output.html in the /views dir
	static_file(f, remove = TRUE)
})


# load_html(fun_to_url(", func_c, ", url = \"/json/\")
# Execute Function
router$get(\"/json/:func\", function(func, query, ...) {
	
	output <- eval(parse(text = func_string_with_query(func_c = func, query = query)))
	
	# brews the file output.html in the /views dir
	raconteur_render_json(output)
})


# load_html(fun_to_url(", func_c, ", url = \"/js/howdy/\")
# Execute Function
router$get(\"/js/:var_name/:func\", function(var_name, func, query, ...) {
	
	output <- eval(parse(text = func_string_with_query(func_c = func, query = query)))
	
	# brews the file output.html in the /views dir
	raconteur_render_javascript(var_name, raconteur_toJSON(object))
})


# load_html(\"/file/routes.R\")
# Evaluate the function and make a Javascript Version
router$get(\"/file/*\", function(splat, ...) {
	# displays the file \"splat\"
	static_file(splat)
})


# load_html(\"/interaction/\",", func_c, ")
# PLEASE EDIT THE FILE BELOW!!!!
# View Interactions
router$get(\"/:func/interaction\", function(func, query, ...) {
	# brews the file interaction.html in the /views dir
	render_brew(\"interaction\",list(header = \"Interaction\", output = output))
})

", file_path = file_path)

}