# share-data-cv_R.R
gc()
rm(list=ls())
setwd('C:/SHARE/R')
options(warn=0) 
options(error=utils::recover)
options(max.print=99999)
closeAllConnections() 

source('share-libraries.R')
source('share-functions.R')

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

########################################################################
# WAVEX data
# mergeid         str12   %12s                 			Person identifier (fix across modules and waves)
# country         byte    %14.0g     country   			Country identifier
# language        byte    %44.0g     language  			Language of questionnaire
# gender          byte    %10.0g     gender    			Male or female
# yrbirth         int     %10.0g     dkrf      			Year of birth
# mobirth         byte    %10.0g     month     			Month of birth
# firstwave       byte    %9.0g      wave       		First appearance of person in SHARE
# interview_w1    byte    %71.0g     interview	 		Interview done (wave 1) ... for each wave
# int_year_w1     int     %71.0g     na_extended		Interview year (wave 1)
# int_month_w1    byte    %71.0g     month2     		Interview month (wave 1)
# age_int_w1      int     %71.0g     na_extended		Age of respondent at the time of interview (wave 1)
# fam_resp_w1     byte    %71.0g     famresp    		Family respondent (wave 1)
# fin_resp_w1     byte    %71.0g     finresp    		Financial respondent (wave 1)
# hhsize_w1       byte    %71.0g     na_extended		Household size (wave 1)
# deceased_year   int     %33.0g     na         		Year of decease
# deceased_month  byte    %33.0g     month3     		onth of decease
# deceased_age    int     %33.0g     na         		Age at decease
# deadoralive_w1  byte    %72.0g     dol        		ead or alive (wave 1)

vars = "mergeid$|gender|birth|firstwave|interview_w|int_|age_int|fam_resp|fin_resp|hhsize|deceased|deadoralive"
varsno 	= "ub|flag$|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$"

setwd('C:/SHARE/Data/sharewX')
d <- setDT(read.dta13(file = 'sharewX_rel7-0-0_gv_allwaves_cv_r.dta'))
d <- d[, grepl(vars, colnames(d)), with=FALSE]
f_cn(d,'')

table(d$yrbirth)

f_dt_NULL(d, varsno)  	
unique(d, by="mergeid")
d <- setorder(d, mergeid)
d <- d[ !grepl('^no int', mergeid) ]

d
colnames(d)
	
################################################################################################################
# SAVE DATA 
################################################################################################################3
setwd('C:/SHARE/R/data')
	fwrite(d, file = "data-raw-cv_r.csv", na=NA)
	dcz <- d[ grepl('CZ', mergeid) ]
	fwrite(dcz, file = "data-raw-cv_r-CZ.csv", na=NA)
	cat("Data saved", "\n")
setwd('C:/SHARE/R')