# share-data-web.R 

setwd('C:/SHARE/R/data')
															
	d_cv_r      		<- fread(file = paste0('data-cv_r.csv') )
	d_dn        		<- fread(file = paste0('data-dn.csv') )
	d_cc			  		<- fread(file = paste0('data-cc.csv') ) # also includes cs data in w7
	d_bf	      		<- fread(file = paste0('data-bf.csv') )
	d_gv_children		<- fread(file = paste0('data-gv_children.csv') )

	d <- merge(d_cv_r,	d_dn				,	by='mergeid', all = TRUE, sort = TRUE)
	d <- merge(d, 			d_cc				,	by='mergeid', all = TRUE, sort = TRUE)
	d <- merge(d, 			d_gv_children,	by='mergeid', all = TRUE, sort = TRUE)

	############################################################
	d <- unique(d, by="mergeid")
	d <- setorder(d, mergeid)

	fwrite(d, 													file = paste0('data-temp.csv'), na=NA)	

setwd('C:/SHARE/R')