From 2757a86383ee759190e794fd479d4417e4a6afb1 Mon Sep 17 00:00:00 2001
From: lukasadrion <lukas.adrion@uni-ulm.de>
Date: Wed, 21 Jan 2026 13:12:34 +0100
Subject: [PATCH] :bug: add getAircraftTrajectories function

---
 src/main.Rmd | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/main.Rmd b/src/main.Rmd
index 3a4aea3..0a58f22 100644
--- a/src/main.Rmd
+++ b/src/main.Rmd
@@ -166,6 +166,21 @@ calculate_trajectory_params <- function(icao, departure_time, creds) {
     return(NULL)
   })
 }
+
+getAircraftTrajectories <- function(icao, time, creds, days = 5){
+  tracks <- list()
+  for (i in 0: (days-1)) {
+    flights <- getFlights(icao,time - days(i),creds)
+    for (f in flights){
+      track <- calculate_trajectory_params(icao, f[["departure_time"]], creds)
+      if (!is.null(track)){
+        tracks[[length(tracks)+1]] <- track
+      }
+      Sys.sleep(0.5) # API courtesy
+    }
+  }
+  return(tracks)
+}
 ```
 
 ```{r stat-functions, include=FALSE}