ibrary(dbplyr)
library(dplyr.snowflakedb)

options(dplyr.jdbc.classpath = "~/Downloads/snowflake-jdbc-3.5.3.jar")

# Update with credentials
snowflake_db <- src_snowflakedb(user = ""password = "", account = "ab123456", region = "us-east-1", opts = list(warehouse = "import", db = "cloudinary", schema = "public"))

benchmarks <- tbl(snowflake_db, in_schema("cto","lossy_benchmark_fast_v1_1"))

benchmarks %>%
  rename_all(tolower) %>%
  group_by(format) %>%
  summarize(n = n()) %>%
  kable()