These are all flights I can remember being on, since childhood.

library(knitr)
library(leaflet)
library(geosphere)
library(webshot)
df <- data.frame(read.csv(list.files()[1], header=FALSE))
gcIntermediate(df[,c(1,2)], df[,c(3,4)], n=1000, addStartEnd=TRUE, sp=TRUE, breakAtDateLine = TRUE)%>%
    leaflet()%>%addTiles()%>%addPolylines(weight=2, smoothFactor=0.1, color="#00b3ff", 
        highlightOptions=highlightOptions(bringToFront = TRUE, opacity = 1, weight = 3, 
        sendToBack = TRUE, color = "blue"))%>%addCircleMarkers(lng=df[,1], lat=df[,2], 
        color="orange", radius=0.2)%>%addCircleMarkers(lng=df[,3], lat=df[,4], color="orange", radius=0.2)