test_marsFetchEvents.R

In taywater/pwdgsi: Philadelphia Water Department Green Stormwater Infrastructure

library(pool)

# Test jump forward in March
conn_old <- dbPool(
  drv = RPostgres::Postgres(),
  host = "PWDMARSDBS1",
  port = 5434,
  dbname = "mars_data",
  user= Sys.getenv("shiny_uid"),
  password = Sys.getenv("shiny_pwd"),
  timezone = NULL)

# Current production db
old_mars <- old_fetchEvents(con = conn_old, 
                     target_id = "1267-2-1",
                     source = "gage",
                     start_date = "2024-03-01",
                     end_date = "2024-03-31")

pool::poolClose(conn_old)

conn_sand <- dbPool(
  drv = RPostgres::Postgres(),
  host = "PWDMARSDBS1",
  port = 5434,
  dbname = "sandbox_dtime",
  user= Sys.getenv("shiny_uid"),
  password = Sys.getenv("shiny_pwd"),
  timezone = NULL)

# Data from sandbox_dtime
new_mars <- marsFetchRainEventData(con = conn_sand, 
                                  target_id = "1267-2-1",
                                  source = "gage",
                                  start_date = "2024-03-01",
                                  end_date = "2024-03-31")
poolClose(conn_sand)

old_mars1 <- old_mars |>
  dplyr::rename(eventdatastart = eventdatastart_est,
                eventdataend =  eventdataend_est)
# diff between the two is because one 00:00:00 is missing from the old dataset :(
diffs <- dplyr::symdiff(new_mars, old_mars1)