Avoid recording row names in download dataset and readable datetime

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)

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)
 }