Query plane tickets, from several airlines, using the Kiwi API (similar to Google Flights).

The API is documented at https://docs.kiwi.com/.

Usage

Get city or country IDs

library("rflights")
# get Argentina and toulouse IDs
arg_id <- find_location("Argentina", "country")
length(arg_id) # only one result, so it might be the one

## [1] 1

arg_id <- arg_id[[1]]
names(arg_id)

##  [1] "id"                "active"            "code"             
##  [4] "name"              "slug"              "alternative_names"
##  [7] "rank"              "global_rank_dst"   "neighbours"       
## [10] "organizations"     "currency"          "region"           
## [13] "continent"         "location"          "type"

arg_id$id

## [1] "AR"

arg_id$continent

## $id
## [1] "south-america"
## 
## $code
## [1] "SA"
## 
## $name
## [1] "South America"
## 
## $slug
## [1] "south-america"

arg_id <- arg_id$id

tl_id <- find_location("toulouse")
length(tl_id)

## [1] 4

lapply(tl_id, function (x) x$type)

## [[1]]
## [1] "city"
## 
## [[2]]
## [1] "airport"
## 
## [[3]]
## [1] "bus_station"
## 
## [[4]]
## [1] "tourist_region"

# we are looking for the city
tl_id <- tl_id[[which(sapply(tl_id, function (x) x$type == "city"))]]
tl_id$country

## $id
## [1] "FR"
## 
## $name
## [1] "France"
## 
## $slug
## [1] "france"
## 
## $code
## [1] "FR"

tl_id <- tl_id$id
tl_id

## [1] "toulouse_fr"

Get flight prices

# get flights from Argentina to toulouse around 01 July to 09 July
# Maybe I can go to the user2019 🤔??
flights <- get_flights(fly_from = "AR", fly_to = "toulouse_fr",
                       date_from = "01/09/2019", date_to = "09/09/2019")
length(flights)

## [1] 97

names(flights[[1]])

##  [1] "id"                            "countryFrom"                  
##  [3] "countryTo"                     "bags_price"                   
##  [5] "baglimit"                      "dTime"                        
##  [7] "aTime"                         "dTimeUTC"                     
##  [9] "p1"                            "p2"                           
## [11] "p3"                            "aTimeUTC"                     
## [13] "price"                         "flyFrom"                      
## [15] "mapIdfrom"                     "mapIdto"                      
## [17] "flyTo"                         "distance"                     
## [19] "cityFrom"                      "cityTo"                       
## [21] "route"                         "routes"                       
## [23] "airlines"                      "nightsInDest"                 
## [25] "pnr_count"                     "transfers"                    
## [27] "has_airport_change"            "virtual_interlining"          
## [29] "fly_duration"                  "duration"                     
## [31] "hashtags"                      "facilitated_booking_available"
## [33] "conversion"                    "booking_token"                
## [35] "quality"                       "found_on"

sapply(flights, function(x) x$price)

##  [1] 456 499 499 501 504 504 506 506 506 507 508 508 509 509 511 512 514
## [18] 514 515 514 514 514 517 520 520 521 522 522 522 524 524 524 525 524
## [35] 524 526 527 527 527 527 526 527 528 529 530 531 532 531 531 533 534
## [52] 534 534 534 534 536 536 536 536 537 537 536 537 537 538 538 538 538
## [69] 537 538 539 539 540 540 540 540 540 541 542 541 542 541 541 541 543
## [86] 542 542 544 554 621 681 719 721 720 724 728 740

Examples

Create flight price alarms

I used it to alert through a Pushbullet message.

my_savings <- 25 # yup, just 25USD 😣
found_ticket <- FALSE
while (!found_ticket) {
  flights <- get_flights(fly_from = "AR", fly_to = "toulouse_fr",
                         date_from = "01/09/2019", date_to = "09/09/2019")
  flights <- flights[sapply(flights, function(x) x$price) <= my_savings]
  if (length(flights) > 0) {
    send_alert(paste0(
      "There is a plane ticket you can afford!\n",
      "Check it out at Kiwi.com"))
    # user-defined alert function (not in rflights)
  }
}

Fly to anywhere

Find plane tickets from my city to anywhere, from today to 2 next weeks.

# I am a freelancer, let's go anywhere!
flights <- get_flights(fly_from = "COR",
                       date_from = Sys.Date(), date_to = Sys.Date()+2*7)
length(flights)

## [1] 175

head(t(sapply(flights, function(x) c(x$price, x$cityTo))), n = 20)

##       [,1] [,2]                   
##  [1,] "25" "Salta"                
##  [2,] "25" "Salta"                
##  [3,] "25" "Salta"                
##  [4,] "25" "Salta"                
##  [5,] "29" "San Miguel de Tucumán"
##  [6,] "29" "San Miguel de Tucumán"
##  [7,] "29" "San Miguel de Tucumán"
##  [8,] "29" "San Miguel de Tucumán"
##  [9,] "29" "Corrientes"           
## [10,] "31" "Buenos Aires"         
## [11,] "31" "Buenos Aires"         
## [12,] "31" "Buenos Aires"         
## [13,] "31" "Buenos Aires"         
## [14,] "31" "Buenos Aires"         
## [15,] "31" "Buenos Aires"         
## [16,] "31" "Buenos Aires"         
## [17,] "31" "Buenos Aires"         
## [18,] "31" "Buenos Aires"         
## [19,] "31" "Buenos Aires"         
## [20,] "31" "Buenos Aires"