add lin and karnani cord tissue reference

add lin and karnani cord tissue reference

# NB setwd to meffil/data-raw
library(devtools)
library(meffil)
library(minfi)
library(FlowSorted.CordTissueAndBlood.EPIC)

assign("reference.globals", new.env(), envir=environment())

load.env <- function(filename, env) {
	if (file.exists(filename))
		load(filename, env)
}

load.env(system.file("references.rda", package="meffil"), reference.globals)

source("lin-karnani-reference.r")
reference.globals$`lin and karnani cord tissue` <- create.lin.karnani.reference()

save.env <- function(filename, env) {
	save(list=ls(env),
		 file=filename,
		 envir=env)
	file.copy(filename, inst("meffil"), overwrite=T)
}

ls(reference.globals)

save.env(file.path("../inst", "references.rda"), reference.globals)