please i got this error: Warning message:
In doRppAPICall(“search/tweets”, n, params = params, retryOnRateLimit = retryOnRateLimit, :
3000 tweets were requested but the API can only return 1152 , when i wrote this code to extract arabic data how can i do
library(twitteR)
library(ROAuth)
api_key = “–”
api_secret =”–”
access_token = “–”
access_token_secret = “–”
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
tweets <- searchTwitter("tunisie", n=3000, lang ='ar')
options(max.print = 3000)
##print(length(tweets))
##print(tweets(1000))
DECISION STATS 
please i got this error: Warning message:
In doRppAPICall(“search/tweets”, n, params = params, retryOnRateLimit = retryOnRateLimit, :
3000 tweets were requested but the API can only return 1152 , when i wrote this code to extract arabic data how can i do
library(twitteR)
library(ROAuth)
api_key = “–”
api_secret =”–”
access_token = “–”
access_token_secret = “–”
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
tweets <- searchTwitter("tunisie", n=3000, lang ='ar')
options(max.print = 3000)
##print(length(tweets))
##print(tweets(1000))
print(Sys.getlocale(category = "LC_CTYPE"))
original_ctype<- Sys.getlocale(category = "LC_CTYPE")
Sys.setlocale("LC_CTYPE","arabic")
df <- do.call("rbind", lapply(tweets, as.data.frame))
write.csv(df, file = "ajs.csv", fileEncoding = "UTF-16LE")