# share-data-gv_children.R

setwd('C:/SHARE/R')
source('share-initialize.R')

dir_data_w 	<- 'C:/SHARE/data'
dir_data 		<- 'C:/SHARE/R/data'

########################################################################
# VARIABLES

vars 		= 'mergeid$|^ch'
varsno 	= "flag|ub|raw|dot$|v1$|v2$|v3$|11$|12$|13$|14$|15$|16$|17$|18$|19$|20$|21$|22$|23$|24$|25$|26$|27$|28$|29$|30$"
varsno2 	= "_11_|_12_|_13_|_14_|_15_|_16_|_17_|_18_|_19_|_20_|_21_|_22_|_23_|_24_|_25_|_26_|_27_|_28_|_29_|_30_"

########################################################################
# wave 6
d <- setDT(read.dta13(file = paste0(dir_data_w,'/sharew6/sharew6_rel7-0-0_gv_children.dta')))
d <- d[, grepl(vars, colnames(d)), with=FALSE]
d6 <- f_wave(d, 'w6', 'mergeid')

########################################################################
# wave 7
d <- setDT(read.dta13(file = paste0(dir_data_w,'/sharew7/sharew7_rel7-0-0_gv_children.dta')))
d <- d[, grepl(vars, colnames(d)), with=FALSE]
d7 <- f_wave(d, 'w7', 'mergeid')
################################################################################################################3
# MERGE WAVES
################################################################################################################3
rm(d)
d <- merge(d6, d7, by = "mergeid", all = TRUE)

f_cn(d,'')
f_cn(d, "_s7$|_w1$|_w2$|_w3$|_w4$|_w5$|_w6$|_w7$")
colnames(d) <- gsub("_s7$|_w1$|_w2$|_w3$|_w4$|_w5$|_w6$|_w7$", "", colnames(d))

f_dt_NULL(d, varsno)  	
f_dt_NULL(d, varsno2)  	

unique(d, by="mergeid")
d <- setorder(d, mergeid)
d <- d[ !grepl('^no int', mergeid) ]
d
colnames(d)
	
################################################################################################################3
# SAVE DATA 
###############################################################################################################3
fwrite(d, file = paste0(dir_data,'/data-raw-gv_children.csv'), na=NA)
dcz <- d[ grepl('	CZ', mergeid) ]
fwrite(dcz, file = paste0(dir_data,'/data-raw-gv_children-CZ.csv'), na=NA)
cat("Data saved", "\n")