Commit 5948013c authored by Asquith, William H.'s avatar Asquith, William H.

Update GW_monthly_rollup.R

parent 2587c685
......@@ -9,6 +9,7 @@ if(doFEATHER) library(feather)
# This is a variable potentially inherited from a visGWDB run, but if not defined,
# let us define so this script has the ability to work independently of visGWDB.
# pseudo.feet.to.meters <- 0.3048 # uncomment to force to meter conversion
if(! exists("pseudo.feet.to.meters")) pseudo.feet.to.meters <- 1
# want to make sure to carry one more digit when meters are involved for round().
base.digits <- ifelse(pseudo.feet.to.meters == 1, 4, 5)
......@@ -346,14 +347,14 @@ if(exists("sites")) {
prettyNum(length(STAT$SITE_BADGE), big.mark=","),
" year-month entries")
} else {
messGreen("STATUS: there are ",
messGreen("STATUS: There are ",
prettyNum(length(unique(STAT$SITE_BADGE)), big.mark=","),
" unique wells of statistics and\n",
" unique wells of statistics; and\n",
" ",
prettyNum(length(unique(META$SITE_BADGE)), big.mark=","),
" wells in the metadata and \n",
" wells in the metadata; and \n",
" ",
prettyNum(length(STAT$SITE_BADGE), big.mark=","),
" year-month entries")
" year-month entries.")
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment