TABLES TO DROP

wh <- "LOOKER_WH_LARGE"
setSnowflake(wh=wh)

DBNAMES <- sfQry("SHOW DATABASES")$name %>% selfname_

SCHEMAS <- lapply(DBNAMES, function(x) sfShowSchemas(wh=wh, dbname=x)$name %>% selfname_)


rm(dbname, schema)
TABLES <- lapply(names(SCHEMAS), function(dbname) lapply(SCHEMAS[[dbname]], function(schema) sfShowTables(schema=schema, dbname=dbname, justnames=TRUE) %>% dbschematbl(dbname=dbname, schema=schema, tbl=.)))