🐛 add getAircraftTrajectories function

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}