## ----setup--------------------------------------------------------------------
library(potentiomap)
data("synthetic_events")

## ----qa-----------------------------------------------------------------------
spring <- subset(synthetic_events, event == "spring")
attr(spring, "crs") <- "EPSG:26916"
checked <- ps_check_observations(
  spring, x = "x", y = "y", value = "head", id = "well_id",
  datetime = "datetime", unit = "unit", vertical_datum = "vertical_datum"
)
checked$summary
event <- ps_select_event(spring, "well_id", "datetime",
                         as.POSIXct("2025-03-15 12:00", tz = "UTC"), 3 * 3600)
event$summary