diff --git a/mtusFunctions.R b/mtusFunctions.R index 04de207b64091e061db4b2cae03346b357018556..08b3f096c5b98a7c2f23aac72d834f5377f5b296 100644 --- a/mtusFunctions.R +++ b/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) } ###