load.r

In jeffreyhorner/raconteur: Telling Stories with Data

library(rjson)
library(RCurl)
library(tools)
library(parser)
library(utils)
library(sinartra)
library(codetools)




FILE <- (function() {
  attr(body(sys.function()), "srcfile")
})()$filename
PATH <- dirname(FILE)

# load data
# if (!exists("flea")) load(file.path(PATH, "data", "flea.rda"))

lapply(dir(file.path(PATH, "R"), full.name=TRUE), source)
# lapply(dir(file.path(PATH, "test_funcs"), full.name=TRUE), source)

if(tools:::httpdPort == 0L) {
	# options(help.ports = 8181)
	tools::startDynamicHelp()
}