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

library(ggplot2)
library(dplyr)

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

# solar <- read.csv("../data/solar_pos_data/solar_data_2026-06-01_to_2026-06-15.csv", header=TRUE)
# photo <- read.csv("../data/photo_measures/arduino_data_package_auto_20260107_143141.csv", header=TRUE)
# photo2 <- read.csv("../data/photo_measures/arduino_data_package_auto_20260109_102906.csv", header=TRUE)

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

liste_data <- lapply(fichiers, read.csv, header = TRUE)
summary(liste_data)
print(typeof(liste_data))

# partial_list_data <- liste_data[1:2]
partial_list_data <- liste_data[7:8]
photo <- do.call(rbind, partial_list_data)

max_val_sensor = 254
photo <- photo %>%
  mutate(across(starts_with("Photo_sensor"), ~ {
    # .x <- sqrt(.x)
    # max_val_sensor = sqrt(max_val_sensor)
    .x <- (.x*-1) + max_val_sensor
    .x <- as.numeric(scale(.x, center = TRUE, scale = TRUE))
  }))

photo$time <- as.POSIXct(photo$Epoch)
ggplot(data = photo, aes(x = time))+
  geom_line(aes(y = Photo_sensor0, color = "Sensor 0"))+
  geom_line(aes(y = Photo_sensor1, color = "Sensor 1"))+
  geom_line(aes(y = Photo_sensor2, color = "Sensor 2"))+
  geom_line(aes(y = Photo_sensor3, color = "Sensor 3"))+
  geom_line(aes(y = Photo_sensor4, color = "Sensor 4"))+
  geom_line(aes(y = Photo_sensor5, color = "Sensor 5"))+
  theme_minimal()

ggplot(data = photo, aes(x = time, y = Temp_sensor0))+
  geom_line()+
  theme_minimal()