R/jstortopics.R

In lubospernis/litreviewbuddy: The idea of the package is to provide a comprehensive set of tools for innovative literature reviews.

#' Returns topic information from JSTOR's API
#'
#' @param link Link to a PDF, Word File.
#' @param token API TOKEN.
#' @return The  topics for \code{link}.
#' @examples
#' jstortopics('https://www.econstor.eu/bitstream/10419/166854/1/ifo-dice-report-v03-y2005-i3-p53-60.pdf', 1234567890)
jstortopics <- function(link, token){
  library(httr)
  library(jsonlite)
  jsonlink <- toJSON(link)
  extraction_url <- "http://www.jstor.org/api/labs-text-extractor-service/v2/extract"
  url <- "http://www.jstor.org/api/labs-text-extractor-service/v2/extract"
  req <- httr::POST(url, httr::add_headers(Authorization = paste0("JWT", sep=" ", token)), body = jsonlink)
  json <- httr::content(req, as = "text")
  print(json)
}

library(httr)
library(jsonlite)
token <- "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJleHAiOjE1MzE3NTU5MjEsInVzZXJuYW1lIjoibHVib3MucGVybmlzIiwiZmFzdGx5LWNsaWVudC1pcCI6IjUyLjIwMC4xOC4xOTgiLCJpYXQiOjE1MzE3NTQxMjEsImp0aSI6IjI5MWQwNDE1LTZkZjQtNGNkYS1iYzE5LWYyODdhOWRhMTFkYiJ9.NGN4OrHXlcyt4vLwfbd6rGmihFSZ5EOcR5JqCTkoWls"
link <- "http://www.upms.sk/media/MESA10_CORRUPTION_RISKS_IN_THE_PRIVATISATION_PROCESS.pdf"
jsonlink <- toJSON(list(fileAsBase64 = link), auto_unbox = TRUE)
extraction_url <- "http://www.jstor.org/api/labs-text-extractor-service/v2/extract"
url <- "http://www.jstor.org/api/labs-text-extractor-service/v2/extract"
authorisationtoken <- paste0("JWT", sep=" ", token)
req <- httr::POST(url= url, add_headers(.headers = c('Authorization' = authorisationtoken)), body = jsonlink)
json <- httr::content(req, as = "text")
print(json)