forced return of processed dt

MTUS-W6-adult-episodes-data-processing.Rmd

@@ -108,6 +108,7 @@ Loading and processing `r eFile`.
 system.time(
   mtusEpsW6DT <- as.data.table(read.spss(eFile))
 )
+names(mtusEpsW6DT)
 ```
 
 We have loaded `r format(nrow(mtusEpsW6DT), big.mark=",",scientific=FALSE)` rows of data for `r format(uniqueN(mtusEpsW6DT$countrya), big.mark=",",scientific=FALSE)` countries.
@@ -131,7 +132,7 @@ setkey(mtusUKEpsDT, countrya, survey, swave, msamp, hldid, persid, id) # sorts i
 
 print("-> Create uniq id for diaries (for matching) and persons")
 # Create unique ids ----
-ba_MTUScreateIds(mtusUKEpsDT)
+mtusUKEpsDT <- ba_MTUScreateIds(mtusUKEpsDT)
 ```
 
 ## Episode dates