rpu 03g in vpu 08

workspace/R/config.R

@@ -5,6 +5,10 @@ library(hyRefactor)
 library(tidyr)
 library(hyfabric)
 
+if(nchar(Sys.getenv("RPU_CODE")) == 3) {
+  rpu_code <- Sys.getenv("RPU_CODE")
+}
+
 if(exists("rpu_code") && !exists("VPU")) {
   VPU <- substr(rpu_code, 1, 2)
   
@@ -15,6 +19,10 @@ if(exists("rpu_code") && !exists("VPU")) {
   if(rpu_code %in% c("10e", "10f", "10g", "10h", "10i")) {
     VPU <- "10U"
   }
+  
+  if(rpu_code == "03g") {
+    VPU = "08"
+  }
 }
 
 # NHDPlus V2 Region