300ya.ru API using R

300ya.R

# 300.ya.ru
# Sys.setenv("YA_TOKEN" = "") # your token

get_sharing_url <- function(article_url) {
  token <- Sys.getenv("YA_TOKEN")
  if (is.null(token) || token == "") {
    stop("YA_TOKEN is empty, please set the environment variable")
  }
  endpoint <- 'https://300.ya.ru/api/sharing-url'
  data <- list(article_url = article_url)
  headers <- c('Authorization' = paste0('OAuth ', token))
  response <- httr::POST(endpoint,
                         body = data,
                         encode = "json",
                         httr::add_headers(headers))
  status_code <- httr::status_code(response)
  if (status_code != 200) {
    stop("Error: ", status_code)
  }
  res <- httr::content(response, "parsed")
  sharing_url <- res$sharing_url
  return(sharing_url)
}

get_sharing_url('https://habr.com/ru/companies/ods/articles/716918/')

#> get_sharing_url('https://habr.com/ru/companies/ods/articles/716918/')
#[1] "https://300.ya.ru/0r2Hecs7"