get SEO metrics from SEMrush API with R

api-semrush.R

library(dplyr)

# https://dataseolabs.com
# Doc : https://fr.semrush.com/api-documentation/
# Get your key here : https://fr.semrush.com/billing-admin/profile/subscription/api-units

# conf
keyAPI <- "YOURKEY"
domain <- "cnn.com"
country <- "fr"
limit <- "1000"

url <- paste("http://api.semrush.com/?type=domain_organic&key=",keyAPI,"&display_limit=",limit,
               "&export_columns=Ph,Po,Pp,Pd,Nq,Cp,Ur,Tr,Tc,Co,Nr,Td&domain=",domain,
               "&display_sort=tr_desc&database=",country,sep="")
  
print(url)

# query API SEMrush  
result <- read.csv( url, header = TRUE, sep=";",  encoding = "UTF-8", stringsAsFactors=FALSE) %>%
    arrange(Position)