examples/basic_example.R

In josefslerka/geosugar: Wrapper mostly for Foursquare.

Sys.setlocale("LC_CTYPE", "en_US.UTF-8")
library("geosugar")
library("geosphere")	
library("ggmap")
library("rjson")
library("httr")
library("leaflet")

# foursquare key https://developer.foursquare.com/overview/auth
# dejte si sem svůj

CLIENT_ID <- "EGEZCN5RL5PFM3VGIU2AX1432AAX1JCHMH5VQ0LUUEVIBN0K"
CLIENT_SECRET <- "IMVCR2J05MXAHYTWROYXDPTIPXQPJJ25ALYK22FBHML4XWHW"

V <- "20151015"


# venues kolem jednoho bodu
lat <- "50.0850165"
lon <- "14.4212446"

exampleVenues <- getListNearVenues(lat,lon,radius = 100)

# jednoduchá mapa
m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=exampleVenues$lng, lat=exampleVenues$lat, popup=exampleVenues$name)
m 

# search venues
latVenue <- "50.08398"
lonVenue <- "14.41663"
kavarny <- getListSearchVenues(latVenue, lonVenue, "coffee", radius = 2000)

# detail mista
getVenueDetail("4f316546e4b0f99d8848b341")

# venues podobne 4SQ mistu
exampleSimilary <- getListOfSimilaryVenues("4f316546e4b0f99d8848b341")

# venues podobne 4SQ mistu
exampleNext <- getListOfNextVenues("4f316546e4b0f99d8848b341")

#photos from hooters
hooters <- getVenueDetailMultimedia("5346651f498e32df69ee5be1")

### siť podniku podobnych hipster podniku Cobra
startPoint <- "4fab9efee4b03a9d6ad49052" #id podniku Cobra
prvniLevel <- getListOfSimilaryVenues(startPoint)
druhyLevelList <- as.vector(prvniLevel$to)

druhyLevel <- data.frame()
for(i in druhyLevelList) {
	druhyLevelTmpNext <- getListOfSimilaryVenues(i)
	druhyLevel <- rbind(druhyLevel, druhyLevelTmpNext)
}

tretiLevelList <- as.vector(druhyLevel$to)
tretiLevel <- data.frame()
for(i in tretiLevelList) {
	tretiLevelTmpNext <- getListOfSimilaryVenues(i)
	tretiLevel <- rbind(tretiLevel, tretiLevelTmpNext)
}

kamPoCobre <- data.frame()
kamPoCobre <- rbind(prvniLevel,druhyLevel)
kamPoCobre <- rbind(kamPoCobre,tretiLevel)
kamPoCobre <- unique(kamPoCobre)

library(igraph)
g <- graph.data.frame(kamPoCobre, directed=TRUE)
plot(g, vertex.size=3, vertex.label=V(g)$name, vertex.label.dist=0.4, layout=layout.fruchterman.reingold, 
	edge.arrow.size=0.1)

hrany <- get.edgelist(g)
write.csv(hrany, "poCobre.csv", row.names = FALSE)


allVenuesPoCobre <- c(as.vector(kamPoCobre$from),as.vector(kamPoCobre$to))
allVenuesPoCobre <- unique(allVenuesPoCobre)

detailsPoCobre <- data.frame()
for(i in allVenuesPoCobre) {
	venuesDetailTmp <- getVenueDetail(i)
	detailsPoCobre <- rbind(detailsPoCobre,venuesDetailTmp)
}
write.csv(detailsPoCobre, "detailsPoCobre.csv")

####
lat <- "50.0291164"
lon <- "13.3641198"

distanceX <- 10000 # metrs
distanceY <- 20000 # metrs

steps <- 1000 # metrs
radius <- 90 # direction

# list with geopoints
maticeMesto <- geomatrix(lat,lon, distanceX, distanceY, steps, radius=90)

# plot map with points
qmplot(lon, lat, data = maticeMesto, geom = c('point'), source="google", zoom=15, colour = I('blue'))

dfVenuesGPS <- data.frame()
dfFailVenues <- data.frame()

write.table(dfFailVenues, "fail_4sq_venues.txt")
write.table(dfVenuesGPS, "mesto_4sq_venues_zaklad.txt")


i <- 1
for(i in 1:nrow(maticeMesto)) {
	cat(i)
	cat("\n")
   	result <- tryCatch({
	   	lat <- maticeMesto[i,]$lat
		lon <- maticeMesto[i,]$lon
	    pointGps <- getListNearVenues(lat,lon,radius = 200)
		Sys.sleep(0.7) # ugly hack for limistr
		write.table(pointGps, "mesto_4sq_venues_zaklad.txt", row.names=F, col.names=F, append=T)
    }, error = function(errorCondition) {
		write.table(i, "fail_4sq_venues.txt", row.names=F, col.names=F, append=T)
  	})  
	cat("\n")
	dfVenuesGPS <- rbind(dfVenuesGPS,pointGps)

}
dfVenuesGPS <- unique(dfVenuesGPS) # data with Foursquare's objects
m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=dfVenuesGPS$lng, lat=dfVenuesGPS$lat, popup=dfVenuesGPS$name)
m