fitz-twitter-art-bot-tweet.R

library(httr)
library(rtweet)
library(jsonlite)
random <- fromJSON("https://data.fitzmuseum.cam.ac.uk/random")
contentUrl <- 'https://data.fitzmuseum.cam.ac.uk/imagestore/'
uri <- gsub("http:","https:",random$admin$uri)
accession <- as.list(random$identifier$accession_number)
number <- accession[1]
images <- random$multimedia$processed
imageLarge <- images$large$location[1:1]
imageUrl <- paste0(contentUrl,imageLarge)

makers <-as.data.frame(random$lifecycle$creation$maker)
maker <- paste(c(paste(rev(strsplit(gsub(',','',makers$summary_title), "\\s+")[[1]]), collapse= " ")),collapse=' & ' )


title <- random$summary_title

fullTitles <- paste(c(random$title$value),collapse=', ' )

acquisition <- as.data.frame(random$lifecycle$acquisition$date)

if(title != fullTitles){
  label <- paste(fullTitles,'-',title,sep = ' ')
} else {
  label <- fullTitles
}
tweetText <- paste(number, label, 'made by', maker, uri, 'Acquired', acquisition[, c('value')], sep=' ')
temp_file <- tempfile(fileext = ".jpeg")
download.file(imageUrl, temp_file)

fitzArtBot_token <- rtweet::rtweet_bot(
  api_key =    Sys.getenv("TWITTER_CONSUMER_API_KEY"),
  api_secret = Sys.getenv("TWITTER_CONSUMER_API_SECRET"),
  access_token =    Sys.getenv("TWITTER_ACCESS_TOKEN"),
  access_secret =   Sys.getenv("TWITTER_ACCESS_TOKEN_SECRET")
)

rtweet::post_tweet(
  token          = fitzArtBot_token,
  status         = tweetText,
  media          = temp_file,
  media_alt_text = label
)