# install.packages("ragg")
# install.packages("tidyverse")
# install.packages("ggplot2")

library(ggplot2)
library(dplyr)

setwd("~/Documents/PlatformIO/Projects/Robot_Go_West/arduino-photometrics/exec")

chemin <- "../data/photo_measures/"
fichiers <- list.files(path = chemin, pattern = "\\.csv$", full.names = TRUE)

liste_data <- lapply(fichiers, read.csv, header = TRUE)
#partial_list_data <- liste_data[3:6]

photo <- do.call(rbind, liste_data)

csv_name <- "merged_photo_data.csv"
csv_path_name <- paste(c(chemin, csv_name), collapse = "")

write.csv2(photo, file = "merged_photo_data", sep = ",", eol = "\n", col.names = TRUE,)
write.csv(photo, csv_path_name, row.names = FALSE)