-
Notifications
You must be signed in to change notification settings - Fork 0
/
identity
27 lines (24 loc) · 882 Bytes
/
identity
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
install.packages("ROAuth")
install.packages("twitteR")
install.packages("wordcloud")
install.packages("tm")
install.packages('RColorBrewer')
library("ROAuth")
library("twitteR")
library("wordcloud")
library("tm")
library(RColorBrewer)
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")
KEY<-'????????????????'
SECRET<-'p????????????????????'
cred <- OAuthFactory$new(consumerKey = KEY,
consumerSecret = SECRET,
requestURL = "https://api.twitter.com/oauth/request_token",
accessURL = "https://api.twitter.com/oauth/access_token",
authURL = "https://api.twitter.com/oauth/authorize")
cred$handshake(cainfo="cacert.pem")
##PARAR PARA METER PIN
save(cred, file="twitter authentication.Rdata")
###
library(RCurl) Corrección
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))