Fix quoting problem with columns containing quotes

2019-11-05 11:47:20 -05:00 · 2019-11-05 11:47:20 -05:00 · 6eb7bc9e70
parent c9764d322c
commit 6eb7bc9e70
1 changed files with 1 additions and 1 deletions
--- 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.table(sensor_data, sensor_file, row.names = FALSE, quote = FALSE, sep = ",")
+write.csv(sensor_data, sensor_file)
 dbDisconnect(stopDB)