added explicit return of dt

mtusFunctions.R

@@ -110,6 +110,7 @@ ba_MTUScreateIds <- function(dt){
   dt <- dt[, ba_pidChar := paste0(survey, swave, msamp, hldid,persid,sep= "_")] # force character
   dt <- dt[, ba_pid := md5(ba_pidChar)] # hash
   dt <- dt[, ba_diarypid := paste0(ba_pid, id, sep= "_")] # force character
+  return(dt)
 }
 
 # # diarypid
@@ -146,7 +147,7 @@ ba_MTUScreateEpisodeStartEndDateTimes <- function(dt){
   # r half hour (includes date)
   dt <- dt[, r_epStartHalfHourDateTime := floor_date(r_epStartDateTime,
                                                      unit ="30 minutes")]
-  
+  return(dt)
 }
 
 ###
@@ -160,7 +161,7 @@ ba_MTUScreateAllEpisodeStartTimesAsString <- function(dt){
                                            dt$st_mins
                                            )
   ]
-  
+  return(dt)
 }
 
 ###