Scrap TransitLink for Singapore MRT / LRT Station to Station Travel Travel Time

sgRailTravelTime.R

# Estimated travel time does NOT include waiting time

library(httr)
library(stringr)

getTravelTime <- function(start_code, stop_code){

  params <- list(
    mrtcode_start = start_code,
    mrtcode_end = stop_code,
    action = "script.cgi",
    submit = "return isFilled('formmrt')"
  )

  res <- POST("https://www.transitlink.com.sg/eservice/eguide/rail_info.php", body = params, encode = "form", verbose())

  str <- content(res, "text", "UTF-8")
  res <- str_match(str, "<td rowspan=\"4\">(.*?)</td> ")

  return (res[,2])
  
}