From 62aab7e67566f785307686a265956b0b4548f9c3 Mon Sep 17 00:00:00 2001
From: Kelsey Florek <kelseyflorek22@gmail.com>
Date: Mon, 12 Jul 2021 09:11:39 -0500
Subject: [PATCH] updated db check to get latest date of data available

---
 retrieve_data.R | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/retrieve_data.R b/retrieve_data.R
index 9b0e7a8..646c07c 100644
--- a/retrieve_data.R
+++ b/retrieve_data.R
@@ -13,8 +13,23 @@ get_DHS_county_data <- function(){
     "Washington","Waukesha","Waupaca","Waushara","Winnebago","Wood")
   
   data = list()
+  
+  # get last date of data
+  last_date = NA
+  c = 0
+  while(is.na(last_date)){
+    key = paste(Sys.Date()-c,"Dane",sep="_")
+    hit <- svc$query("DHS-SC2-County-Data",
+                     KeyConditionExpression = "date_county = :value",
+                     ExpressionAttributeValues = list(':value' = list('S' = key)))
+    if(hit$Count > 0){
+      last_date = Sys.Date()-c
+    }
+    c = c + 1
+  }
+  
   for(item in wi_counties){
-    key = paste(Sys.Date()-1,item,sep="_")
+    key = paste(last_date,item,sep="_")
     hit <- svc$query("DHS-SC2-County-Data",
                      KeyConditionExpression = "date_county = :value",
                      ExpressionAttributeValues = list(':value' = list('S' = key))