[R] 國道客運站牌API資料擷取

#若有Proxy加上下列指令
Sys.setenv(http_proxy="http://proxy.xxx.com.tw:8080")
Sys.setenv(https_proxy="https://proxy.xxx.com.tw:8080")

#Import library
library(httr)
library(RCurl)
library(XML)
library(jsonlite)

#################################################################################
# 國道客運
#################################################################################
#國道客運API
bus_station_point = function(busid){
url_gen = paste("http://www.taiwanbus.tw/app_api/RouteStop.ashx?routeNo=", busid, sep="")
html_code = getURL(url_gen, encoding = "big5")
bus = fromJSON(html_code)
return(bus$stopResult)
}

bus_station_point(1916)

busid	groupid	lat	lon	name
9028	8529	24.98405	121.5413	捷運大坪林站
9028	39871	24.63259	121.7934	冬山國中
9028	41302	24.59528	121.8515	蘇澳站
9028	48017	24.67824	121.7767	羅東站
9028	56243	24.68814	121.7912	五結
9028	56705	24.93718	121.7129	坪林站