# DataFields.r


.us()
tbls <- qShowTables(justnames=TRUE, includePerm=TRUE)
tbls <- setNames(nm=tbls)
heads <- headsDB(tbls, 35)
projName <- "TableDesc"
setScience("TableDesc", create=TRUE, subl=FALSE, load=FALSE)
jesusForData(heads, tbls)
saveImageTo()