18 lines
583 B
R
18 lines
583 B
R
|
source("renv/activate.R")
|
||
|
|
library("dplyr", warn.conflicts = F)
|
||
|
|
library(readr)
|
||
|
|
library(tidyr)
|
||
|
|
library(purrr)
|
||
|
|
|
||
|
|
all_sensors = snakemake@input[["all_sensors"]]
|
||
|
|
|
||
|
|
sensor_timestamps <- tibble(files = all_sensors) %>%
|
||
|
|
mutate(timestamps = map(files,~ read_csv(.,col_types = cols_only(timestamp = col_double()))),
|
||
|
|
sensor = row_number(),
|
||
|
|
files = NULL) %>%
|
||
|
|
unnest(timestamps) %>%
|
||
|
|
mutate(timestamp = (timestamp %/% 1000) * 1000) %>%
|
||
|
|
distinct(timestamp, .keep_all = TRUE) %>%
|
||
|
|
arrange(timestamp)
|
||
|
|
|
||
|
|
write.csv(sensor_timestamps, snakemake@output[[1]], row.names = FALSE)
|