R/add_metadate_cols.R

In nelsonroque/RM2C2: Scoring and Summarizing of Cognitive task data from the Mobile Monitoring of Cognitive Change Project (M2C2).

#' RM2C2: Scoring, Summarizing

#' @name add_metadate_cols
#' @param df class: dataframe
#' @param time_var class: string
#' @param time_format  class: string
#' @keywords m2c2, cognition
#' @import tidyverse
#' @examples
#' add_metadate_cols(df)
#' @export
add_metadate_cols <- function(df, time_var = "timestamp", time_format="%m/%d/%Y") {
  df.w.dates <- df %>%
    # pass in time_stamp as string
    mutate(current_datetime = as.POSIXct(UQ(sym(time_var)), origin = "1960-01-01", format=time_format)) %>%
    mutate(WEEK = lubridate::week(current_datetime),
           MONTH = lubridate::month(current_datetime),
           DAY = lubridate::day(current_datetime),
           YEAR = lubridate::year(current_datetime),
           TIME_HMS = lubridate::hms(current_datetime),
           TIME_HOUR = lubridate::hour(current_datetime),
           WEEKDAY.value = lubridate::wday(current_datetime),
           WEEKDAY.label = lubridate::wday(current_datetime,label=T),
           
           day_hour_round_15 = (lubridate::round_date(current_datetime, "15 minutes")),
           day_hour_round_30 = (lubridate::round_date(current_datetime, "30 minutes")),
           
           hour_round_15 = hms::as.hms(lubridate::round_date(current_datetime, "15 minutes")),
           hour_round_30 = hms::as.hms(lubridate::round_date(current_datetime, "30 minutes"))) %>%
    mutate(WEEKEND = ifelse(WEEKDAY.label == "Sat" | WEEKDAY.label == "Sun",1,0)) %>%
    mutate(TIME_WINDOW_2hr = cut(TIME_HOUR,
                                 breaks=c(0,8,10,12,14,16,18,20,22,24), 
                                 include.lowest=TRUE, 
                                 right=FALSE))
  return(df.w.dates)
}