data-raw/internal.R

In mcanigueral/evflex: Tools to coordinate EV sessions based on user profiles and optimization objectives

library(dplyr)

sessions <- readr::read_csv("data-raw/sessions_standard.csv") %>%
  mutate(
    ConnectionStartDateTime = lubridate::with_tz(ConnectionStartDateTime, tzone = "Europe/Amsterdam"),
    ConnectionEndDateTime = lubridate::with_tz(ConnectionEndDateTime, tzone = "Europe/Amsterdam"),
    ChargingStartDateTime = lubridate::with_tz(ChargingStartDateTime, tzone = "Europe/Amsterdam"),
    ChargingEndDateTime = lubridate::with_tz(ChargingEndDateTime, tzone = "Europe/Amsterdam")
  ) %>%
  filter(
    Power < 25
  )

solar <- readr::read_csv("data-raw/solar.csv") %>%
  mutate(datetime = lubridate::with_tz(datetime, "Europe/Amsterdam"))


usethis::use_data(sessions, solar, overwrite = TRUE, internal = TRUE)