Avoid recording row names in download dataset and readable datetime

replace/49a3408c2b96eba8d0498f98640bb5817cbeeac9
JulioV 2019-11-12 14:56:31 -05:00
parent 336ce12270
commit 384f401062
2 changed files with 2 additions and 2 deletions

View File

@ -19,5 +19,5 @@ sensor_data <- sensor_data[order(sensor_data$timestamp),]
# Droping duplicates on all columns except for _id # Droping duplicates on all columns except for _id
sensor_data <- sensor_data %>% distinct(!!!syms(setdiff(names(sensor_data), "_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) dbDisconnect(stopDB)

View File

@ -36,5 +36,5 @@ if(!is.null(timezone_periods)){
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))
output <- split_local_date_time(output) output <- split_local_date_time(output)
write.csv(output, sensor_output) write.csv(output, sensor_output, row.names = FALSE)
} }