From d737fee89e7df8a52f7182fdc5f1f2f0b326ecc3 Mon Sep 17 00:00:00 2001
From: Ben Varick <ben@dendroalsia.net>
Date: Sun, 24 Nov 2024 21:46:37 -0600
Subject: [PATCH] removed measurement filter from query

---
 madison-metro.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/madison-metro.R b/madison-metro.R
index 17f027c..6d806ab 100644
--- a/madison-metro.R
+++ b/madison-metro.R
@@ -4,13 +4,13 @@ library(glue)
 library(ggmap)
 library(sf)
 
-# parameters needed to make connection to Database
+# parameters needed to make connection to InfluxDB
 token <- substr(read_file(file = 'api_keys/influxdb_madison-metro'), 1, 88)
 org <- "32b7fde0efd8a3b3"
 bucket <- "metro_vehicles"
   
 
-days <- 3
+days <- 5
 
 influx_connection <- InfluxDBClient$new(url = "https://influxdb.dendroalsia.net",
                                 token = token,
@@ -21,7 +21,6 @@ time_start <- Sys.time()
 
 query_string <- glue('from(bucket: "{bucket}") ',
                      '|> range(start: -{days}d) ',
-                     '|> filter(fn: (r) => r["_measurement"] == "vehicle_data")',
                      '|> pivot(rowKey:["_time"], columnKey: ["_field"], valueColumn: "_value")')
 
 results <- influx_connection$query(query_string)
@@ -34,7 +33,9 @@ time_end <- Sys.time()
 difftime(time_end, time_start)
 rm(time_end, time_start, results)
 
-#-----
+#----- 
+
+
 routes_categorized <- read_csv(file = "routes_categorized.csv", col_types = "cc")
 
 metro_data <- metro_raw %>%