get TF and CF from Majestic API with R

api-majestic.R

library(httr)
library(urltools)
library(dplyr)

# https://dataseolabs.com
# Doc : https://developer-support.majestic.com/api/
# Create your key here : https://developer-support.majestic.com/security/

apiUrl <- "https://api.majestic.com/api/json?app_api_key="
apiKey <- "YOURKEY"
myList <- c("https://www.cuisineaz.com","http://www.marmiton.org")

#historic : all period
#refresh : 90 last days
modeUrl <- "historic"

# create empty dataframe
results <- data.frame()

for (site in myList) {
  u <- url_encode(site)
  url <- paste(apiUrl,apiKey,"&cmd=GetIndexItemInfo&items=1&item0=",u,"&datasource=",modeUrl,sep="")
  req <- GET(url)
  
  # you can add your own columns, check content(req)$DataTables$Results$Data
  tmp <- as.data.frame(content(req)$DataTables$Results$Data) %>%
            select(Item,ExtBackLinks,RefDomains,CitationFlow,TrustFlow)
  
  results <- rbind(results,tmp)
}

print(results)