subProj <- "Shazam"
setScience(proj="Looker", subProj=subProj)

schema <- "shazam"
wh <- "Looker_wh_large"
dbname <- "prod"

setSnowflake(wh=wh, dbname=dbname)

ret <- create_lookml_model_from_schema(schema=schema, wh=wh, dbname=dbname)
catn(sprintf("All Set.  Now just run this on a local instance of R: \n\n {\n   setScienceIfNot(proj='misc')\n   sourceSupportFns(proj='Looker')\n   bringAndCopyLookerFiles(f='%s')\n\n   .o('/Applications/Tower 2.0.app')\n }\n\n\n", path.unexpand(dirname(ret[[1]]))))