## 00 REFRESH_ALL TableBasics.r

if (FALSE) 
{
  setScience("TableBasics", subl=FALSE, create=FALSE)
  setGitBranchToSystem(); .g()
  source("~/git/orch/src/TableBasics/00 REFRESH_ALL TableBasics.r")
}


{
  if (.Pfm != "Darwin" && !nchar(getGNUScreenName()))
    stop ("Must use screen when on remote machine")

  ## Run this to update or refresh all tables
  if (getProjName() == "")
    setScience("TableBasics", load=FALSE, subl=FALSE, create=FALSE)


  use.CurrentProject <- TRUE


  if (getPfm() == "Darwin")
    warning ("Will probably not be able to refresh on local machine")


  db.all.pfm.bak <- getOption("db.all.pfm")
  snowflake_inuse.bak <- getOption("snowflake_inuse")

  options(db.all.pfm = TRUE)
  options(snowflake_inuse = TRUE)

  wh <- "SCIENCE"
  dbname <- "prod"
  setSnowflake(wh=wh, start=TRUE)

  get_dim_.REFRESH_ALL_AND_SAVE(use.CurrentProject=use.CurrentProject, wh=wh, dbname=dbname, snowflake_inuse=TRUE, verbose=TRUE)

  options(db.all.pfm=db.all.pfm.bak)
  options(snowflake_inuse=snowflake_inuse.bak)

  TRUE
}