-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.R
58 lines (54 loc) · 1.98 KB
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
library(shiny)
library(plyr)
library(RColorBrewer)
library(XML)
# get List from KH city open Data
url = "http://www.c-bike.com.tw/xml/stationlistopendata.aspx"
ls <- xmlToList(xmlParse(url))
# get a new list for rCharts leaflet
stationList <- llply(ls[[1]], summarize,
Name = StationName,
Address = StationAddress,
fillColor = cut(
as.numeric(StationNums1)/(as.numeric(StationNums1) + as.numeric(StationNums2)),
breaks = c(0, 0.20, 0.40, 0.60, 0.80,1),
labels = brewer.pal(5, 'RdYlGn'),
include.lowest = TRUE),
popup = sprintf("%s <br /> %s <br /> %s <br />容量: %i <br />尚餘車輛: %i ",
StationName,
StationAddress,
StationDesc,
as.numeric(StationNums1) + as.numeric(StationNums2),
as.numeric(StationNums1)),
latitude = StationLat,
longitude = StationLon)
#get center
getCenter <- function (data){
tmpdf <- ldply(stationList)
lat <- mean(as.numeric(tmpdf$latitude))
lng <- mean(as.numeric(tmpdf$longitude))
return(list(lat = lat, lng = lng))
}
#display the map
plotMap <- function(data = stationList){
center <- getCenter(stationList)
L1 <- Leaflet$new()
L1$tileLayer(provider = 'Stamen.TonerLite')
L1$set(width=1000, height=700)
L1$setView(c(center$lat, center$lng), 11)
L1$geoJson(toGeoJSON(data),
onEachFeature = '#! function(feature, layer){
layer.bindPopup(feature.properties.popup)
} !#',
pointToLayer = "#! function(feature, latlng){
return L.circleMarker(latlng, {
radius: 4,
fillColor: feature.properties.fillColor || 'red',
color: '#000',
weight: 1,
fillOpacity: 0.8
})
} !#")
L1$fullScreen(TRUE)
return(L1)
}