R/act24_variables.R

In PAHPLabResearch/FLASH: FLASH: Free Living Activity Study for Health

.act24_drop_names <- c(
  "ProjectName", "RecallRecID", "RecallNo", "ReportingDate"
)

.act24_ee_names <- c(
  "id", "RecallDate", "Category", "Activity",
  "ActivityStartTime", "ActivityEndTime", "Duration",
  "Met_Sleep", "Met_Sed", "Met_Act1", "Met_Act2",
  "Percent_Sed", "Percent_Act1", "Percent_Act2",
  "BehaviorClassification", "ActivityLevel",
  "EverPrimaryIndicator_Mets", "EverPrimaryIndicator_BC_Mets",
  "Duration_Primary", "MetHours_Primary", "GEN_Posture",
  "GEN_Other", "GEN_Intensity"
)

.minutes <-
  as.POSIXct("1111-11-11 00:00:00", "UTC") %>%
  {. + (60 * (0:1439))} %>%
  data.frame(Timestamp = .)

.strf_mins <- strftime(.minutes$Timestamp, "%H:%M:%S", "UTC")