In bcgov/rems: Get Data from British Columbia's Environmental Monitoring System

library(tictoc)
library(rems)
library(dplyr)
packageVersion("duckdb") # 0.2.5, unreleased commit 57ed79e8ff17eedde0483509d4202e9e716e16ab

start <- tic("download")
download_historic_data(TRUE, FALSE)
toc()
tic("connect")
con <- connect_historic_db()
toc()
tic("attach")
hist_tbl <- attach_historic_data(con)
toc()
tic("dplyr")
hist_df <- hist_tbl %>%
  select(EMS_ID, PARAMETER, COLLECTION_START, RESULT) %>%
  filter(EMS_ID %in% c("0121580", "0126400"),
         PARAMETER %in% c("Aluminum Total", "Cadmium Total",
                          "Copper Total", " Zinc Total",
                          "Turbidity")) %>%
  collect()
toc()
tic("disconnect")
disconnect_historic_db(con)
end <- toc()

# Total time:
end$toc - start