twitter

install.packages(c("devtools", "rjson", "bit64", "httr"))

## Installing packages into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

library(devtools)

## Loading required package: usethis

install_github("geoffjentry/twitteR")

## Skipping install of 'twitteR' from a github remote, the SHA1 (815fecc7) has not changed since last install.
##   Use `force = TRUE` to force installation

Sys.setenv(BEARER_TOKEN = "AAAAAAAAAAAAAAAAAAAAAK%2B8bAEAAAAAiCHMbpuQwsYL05QA0jf7ZqZhIy4%3D8e8rtd4YQiHf13G3ypXbDrQhBACW530RVFiQEAThS4j0IHiRTY")

install.packages("httr")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

install.packages("jsonlite")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

install.packages("dplyr")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

require(httr)

## Loading required package: httr

require(jsonlite)

## Loading required package: jsonlite

require(dplyr)

## Loading required package: dplyr

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

bearer_token <- Sys.getenv("AAAAAAAAAAAAAAAAAAAAAK%2B8bAEAAAAAiCHMbpuQwsYL05QA0jf7ZqZhIy4%3D8e8rtd4YQiHf13G3ypXbDrQhBACW530RVFiQEAThS4j0IHiRTY")
headers <- c(`Authorization` = sprintf('Bearer %s', bearer_token))

params <- list(`user.fields` = 'description',
               `expansion` = 'pinned_tweet_id')

handle <- readline('chrispeal27')

## chrispeal27

url_handle <-
  sprintf('https://api.twitter.com/2/users/by?usernames=%s', handle)