diff --git a/src/data/download_dataset.R b/src/data/download_dataset.R index b5ef01c1..10ada136 100644 --- a/src/data/download_dataset.R +++ b/src/data/download_dataset.R @@ -19,5 +19,5 @@ sensor_data <- sensor_data[order(sensor_data$timestamp),] # Droping duplicates on all columns except for _id sensor_data <- sensor_data %>% distinct(!!!syms(setdiff(names(sensor_data), "_id"))) -write.csv(sensor_data, sensor_file) +write.csv(sensor_data, sensor_file, row.names = FALSE) dbDisconnect(stopDB) \ No newline at end of file diff --git a/src/data/readable_datetime.R b/src/data/readable_datetime.R index 323c054b..604d0d31 100644 --- a/src/data/readable_datetime.R +++ b/src/data/readable_datetime.R @@ -36,5 +36,5 @@ if(!is.null(timezone_periods)){ 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)) output <- split_local_date_time(output) - write.csv(output, sensor_output) + write.csv(output, sensor_output, row.names = FALSE) }