junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Refactor readable_datetime

replace/f73b782b40c5ff63cdcddaa70dfbcb840b801347
JulioV 2019-10-31 10:05:40 -04:00
parent e388a757b8
commit 2cc73985aa
1 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/data/readable_datetime.R
View File

@ -7,8 +7,19 @@ sensor_output <- snakemake@output[[1]]
timezone_periods <- snakemake@params[["timezone_periods"]] timezone_periods <- snakemake@params[["timezone_periods"]]
fixed_timezone <- snakemake@params[["fixed_timezone"]] fixed_timezone <- snakemake@params[["fixed_timezone"]]
split_local_date_time <- function(data){
return(data %>%
separate(local_date_time, c("local_date","local_time"), "\\s", remove = FALSE) %>%
separate(local_time, c("local_hour", "local_minute"), ":", remove = FALSE, extra = "drop") %>%
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_hour %in% 6:11 ~ "morning",
local_hour %in% 12:17 ~ "afternoon",
local_hour %in% 18:23 ~ "evening")))
}
if(!is.null(timezone_periods)){ if(!is.null(timezone_periods)){
timezones <- read.csv(timezones) timezones <- read.csv(timezone_periods)
tz_starts <- timezones$start tz_starts <- timezones$start
output <- input %>% output <- input %>%
mutate(timezone = findInterval(timestamp / 1000, tz_starts), # Set an interval ID based on timezones' start column mutate(timezone = findInterval(timestamp / 1000, tz_starts), # Set an interval ID based on timezones' start column
@ -17,28 +28,13 @@ 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 = fixed_timezone, usetz = F)) %>% local_date_time = format(utc_date_time, tz = timezone, usetz = F))
separate(local_date_time, c("local_date","local_time"), "\\s", remove = FALSE) %>% output <- split_local_date_time(output)
separate(local_time, c("local_hour", "local_minute"), ":", remove = FALSE, extra = "drop") %>%
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_hour %in% 6:11 ~ "morning",
local_hour %in% 12:17 ~ "afternoon",
local_hour %in% 18:23 ~ "evening"))
write.csv(output, sensor_output) write.csv(output, sensor_output)
} 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))
separate(local_date_time, c("local_date","local_time"), "\\s", remove = FALSE) %>% output <- split_local_date_time(output)
separate(local_time, c("local_hour", "local_minute"), ":", remove = FALSE, extra = "drop") %>%
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_hour %in% 6:11 ~ "morning",
local_hour %in% 12:17 ~ "afternoon",
local_hour %in% 18:23 ~ "evening"))
write.csv(output, sensor_output) write.csv(output, sensor_output)
} }