Fix split local time, add minute column

replace/8f653b3a6c4ab3f5c8ef33e326f416113242d86e
JulioV 2019-10-30 18:12:46 -04:00
parent 89a834e7b1
commit e388a757b8
1 changed files with 11 additions and 10 deletions

View File

@ -17,11 +17,12 @@ if(!is.null(timezone_periods)){
timezone = as.character(timezone)) %>% timezone = as.character(timezone)) %>%
rowwise() %>% rowwise() %>%
mutate(utc_date_time = as.POSIXct(timestamp/1000, origin="1970-01-01", tz="UTC"), mutate(utc_date_time = as.POSIXct(timestamp/1000, origin="1970-01-01", tz="UTC"),
local_date_time = format(utc_date_time, tz = timezone, usetz = F), local_date_time = format(utc_date_time, tz = fixed_timezone, usetz = F)) %>%
local_date = as.Date(local_date_time), separate(local_date_time, c("local_date","local_time"), "\\s", remove = FALSE) %>%
local_time = strsplit(local_date_time, " ")[[1]][2], separate(local_time, c("local_hour", "local_minute"), ":", remove = FALSE, extra = "drop") %>%
local_hour = as.numeric(strsplit(local_time, ":")[[1]][1]), mutate(local_hour = as.numeric(local_hour),
day_segment = case_when(local_hour %in% 0:5 ~ "night", local_minute = as.numeric(local_minute),
local_day_segment = case_when(local_hour %in% 0:5 ~ "night",
local_hour %in% 6:11 ~ "morning", local_hour %in% 6:11 ~ "morning",
local_hour %in% 12:17 ~ "afternoon", local_hour %in% 12:17 ~ "afternoon",
local_hour %in% 18:23 ~ "evening")) local_hour %in% 18:23 ~ "evening"))
@ -30,14 +31,14 @@ if(!is.null(timezone_periods)){
} else if(!is.null(fixed_timezone)){ } else if(!is.null(fixed_timezone)){
output <- input %>% output <- input %>%
mutate(utc_date_time = as.POSIXct(timestamp/1000, origin="1970-01-01", tz="UTC"), mutate(utc_date_time = as.POSIXct(timestamp/1000, origin="1970-01-01", tz="UTC"),
local_date_time = format(utc_date_time, tz = fixed_timezone, usetz = F), local_date_time = format(utc_date_time, tz = fixed_timezone, usetz = F)) %>%
local_date = as.Date(local_date_time), separate(local_date_time, c("local_date","local_time"), "\\s", remove = FALSE) %>%
local_time = strsplit(local_date_time, " ")[[1]][2], separate(local_time, c("local_hour", "local_minute"), ":", remove = FALSE, extra = "drop") %>%
local_hour = as.numeric(strsplit(local_time, ":")[[1]][1]), mutate(local_hour = as.numeric(local_hour),
local_minute = as.numeric(local_minute),
local_day_segment = case_when(local_hour %in% 0:5 ~ "night", local_day_segment = case_when(local_hour %in% 0:5 ~ "night",
local_hour %in% 6:11 ~ "morning", local_hour %in% 6:11 ~ "morning",
local_hour %in% 12:17 ~ "afternoon", local_hour %in% 12:17 ~ "afternoon",
local_hour %in% 18:23 ~ "evening")) local_hour %in% 18:23 ~ "evening"))
write.csv(output, sensor_output) write.csv(output, sensor_output)
} }