update to flightV5

This commit is contained in:
lukasadrion
2026-01-05 14:17:16 +01:00
parent 09ca49ec99
commit bdf075353c
2 changed files with 7 additions and 8 deletions

View File

@@ -1,5 +1,5 @@
icao24,firstseen,lastseen,callsign,estdepartureairport,estarrivalairport,model,typecode,registration icao24,firstseen,takeofftime,lastseen,landingtime,callsign,estdepartureairport,airportofdeparture,estarrivalairport,airportofdestination,model,typecode,registration
44cdc6,1662053869.0,1662065618,BEL40V,NA,EBBR,A320 214,A320,OO-SNF 44cdc6,1662053869.0,NA,1662065618,NA,BEL40V,NA,NA,EBBR,NA,A320 214,A320,OO-SNF
44cdc8,1662140070.0,1662153115,BEL40V,NA,EBBR,A320 214,A320,OO-SNH 44cdc8,1662140070.0,NA,1662153115,NA,BEL40V,NA,NA,EBBR,NA,A320 214,A320,OO-SNH
44ce71,1662231623.0,1662245097,BEL40V,NA,EBBR,A320 112,A320,OO-SSQ 44ce71,1662231623.0,NA,1662245097,NA,BEL40V,NA,NA,EBBR,NA,A320 112,A320,OO-SSQ
44d076,1662299689.0,1662312316,BEL40V,NA,EBBR,A320 214,A320,OO-TCV 44d076,1662299689.0,NA,1662312316,NA,BEL40V,NA,NA,EBBR,NA,A320 214,A320,OO-TCV
1 icao24 firstseen takeofftime lastseen landingtime callsign estdepartureairport airportofdeparture estarrivalairport airportofdestination model typecode registration
2 44cdc6 1662053869.0 NA 1662065618 NA BEL40V NA NA EBBR NA A320 214 A320 OO-SNF
3 44cdc8 1662140070.0 NA 1662153115 NA BEL40V NA NA EBBR NA A320 214 A320 OO-SNH
4 44ce71 1662231623.0 NA 1662245097 NA BEL40V NA NA EBBR NA A320 112 A320 OO-SSQ
5 44d076 1662299689.0 NA 1662312316 NA BEL40V NA NA EBBR NA A320 214 A320 OO-TCV

View File

@@ -30,9 +30,8 @@ all_flights <- list()
for(d in dates) { for(d in dates) {
d <- as.Date(d) d <- as.Date(d)
# korrekter Dateiname
file_name <- paste0("flight_sample_", d, ".csv.gz") file_name <- paste0("flight_sample_", d, ".csv.gz")
url <- paste0("https://s3.opensky-network.org/data-samples/flights/", file_name) url <- paste0("https://s3.opensky-network.org/data-samples/flightsV5/", file_name)
message("Downloading: ", url) message("Downloading: ", url)
@@ -41,7 +40,7 @@ for(d in dates) {
tryCatch({ tryCatch({
download.file(url, dest, mode = "wb") download.file(url, dest, mode = "wb")
# CSV lesen # read csv
df <- read_csv(dest, col_types = cols(.default = "c")) df <- read_csv(dest, col_types = cols(.default = "c"))
all_flights[[length(all_flights)+1]] <- df all_flights[[length(all_flights)+1]] <- df
}, error = function(e) { }, error = function(e) {