check

library(dygraphs)

main_dir = "processed_data/"
csv = "GBR_GUI_ST3"

wp_sheet = read.csv(paste0(main_dir,csv,"_sheet7.csv"))
met_sheet = read.csv(paste0(main_dir,csv,"_sheet10.csv"))

met_sheet$date = as.Date(as.character(met_sheet$date),format="%Y%m%d")
met_sheet$time = ifelse(is.na(met_sheet$time), "00:00:00", met_sheet$time)

met_sheet$datetime <- as.POSIXct(paste(met_sheet$date, met_sheet$time), format = "%Y-%m-%d %H:%M:%S")

data <- data.frame(date=met_sheet$datetime, vapor_pressure = met_sheet$vapor_pressure_deficit_k_pa, prep = met_sheet$precipitation_mm)
dygraph(data, main = "Interactive Plot", xlab = "Date", ylab = "Value") %>%
  dyRangeSelector()