Получение ошибки с кодом при попытке найти твиты с широтой заполнения - PullRequest
Новая
       8

Получение ошибки с кодом при попытке найти твиты с широтой заполнения

0 голосов
/ 13 февраля 2019

Я пытаюсь загрузить твиты для анализа из определенного географического местоположения.Я хочу, чтобы широта и долгота были указаны в таблице.(Я продолжал получать пустые значения раньше)

Я нашел эту ссылку Как извлечь твит геокод из пакета twitteR в R и попытался использовать код.

Сначала я получил эту ошибку: «Скорость ограничена .... блокировка на минуту и ​​повторная попытка до 119 раз ...» Попытка исправить, добавив returnonRateLimit и sys.sleep, но теперь у меня есть новаяошибка: 

    Error in tw_from_response(out, ...) : 
      unused argument (retryonRateLimit = 200) 
    4.twInterfaceObj$doAPICall(cmd, params, "GET", ...) 
    3.doRppAPICall("search/tweets", n, params = params, retryOnRateLimit = 
     retryOnRateLimit, 
          ...) 
    2.searchTwitter(searchString = searchtext, n = 1000, geocode = 
    coordinates$search.twitter.entry[i], 
        retryonRateLimit = 200) 
    1.twitter_lat_lon("food", 10, "100km")

Я относительно новичок в R, может кто-нибудь показать мне, что не так с моим кодом? 

twitter_lat_lon <- function(searchtext,locations,radius){
radius=radius
lat<-runif(n=locations, min=43.6266, max=43.8709)
long<-runif(n=locations, min=-79.752, max=-79.071)

#generate data fram with random longitude, latitude and chosen radius
coordinates<-as.data.frame(cbind(lat,long,radius))
coordinates$lat<-lat
coordinates$long<-long

#create a string of the lat, long, and radius for entry into searchTwitter()
for(i in 1:length(coordinates$lat)){
  coordinates$search.twitter.entry[i]<-toString(c(coordinates$lat[i], coordinates$long[i],radius))
}
# take out spaces in the string
coordinates$search.twitter.entry<-gsub(" ","", coordinates$search.twitter.entry ,fixed=TRUE)

#Search twitter at each location, check how many tweets and put into dataframe
for(i in 1:length(coordinates$lat)){
  coordinates$number.of.tweets[i]<-length(searchTwitter(searchString=searchtext,n=1000,geocode=coordinates$search.twitter.entry[i], retryonRateLimit = 200)) 
sys.sleep(30)}
}
...