hard coded connection info instead of using envt vars

Author: dlebauer

experiment-trait-data-visualizer/cache-refresh.R

@@ -4,13 +4,18 @@ library(lubridate)
 options(scipen=999)
 
 # set up remote connection to BETYdb
-bety_src <- src_postgres(
-  dbname = Sys.getenv('bety_dbname'),
-  password = Sys.getenv('bety_password'),
-  host = Sys.getenv('bety_host'),
-  port = Sys.getenv('bety_port'),
-  user = Sys.getenv('bety_user')
-)
+# bety_src <- src_postgres(
+#   dbname = Sys.getenv('bety_dbname'),
+#   password = Sys.getenv('bety_password'),
+#   host = Sys.getenv('bety_host'),
+#   port = Sys.getenv('bety_port'),
+#   user = Sys.getenv('bety_user')
+# )
+bety_src <- src_postgres(dbname = "bety", 
+                         password = 'bety', 
+                         host = 'terra-bety.default', 
+                         user = 'bety', 
+                         port = 5432)
 
 # get all relevant data from BETYdb for a given season, write to cache file
 get_data_for_season <- function(season) {