Access to sciwheel api in R

sciwheel.R

# libraries you will need
library(httr)
library(jsonlite)
# You will need a token from sciwheel API
token = '<<your API token goes here>>'
# Get Project Ids for use in sciwheel_bib
sciwheel_projects <- function(token){
  project = 'https://sciwheel.com/extapi/work/projects'
  get_meta <- GET(project, add_headers("Authorization"= paste0("Bearer ", token)))
  status <- httr::status_code(get_meta)
  if(status == 401){
    stop("User authorization error (e.g., invalid authorization token), or client has broken the rate limit")
  }
  if(status == 403){
    stop("Insufficient privileges for the request")
  }
  if(status == 500){
    stop("Server-related issue. Please contact Sciwheel if the error persists")
  }
  meta_content <- content(get_meta,"text")
  meta_out <- fromJSON(meta_content, flatten = TRUE) 
  meta_out
}

# Get a .bib of a project and save to file
sciwheel_bib <- function(projectId, file_name ){
  base = 'https://sciwheel.com/extapi/work/references/export?'
  get_bib <- GET(paste0(base, "projectId=",projectId), add_headers("Authorization"= paste0("Bearer ", token)))
  status <- httr::status_code(get_bib)
  if(status == 401){
    stop("User authorization error (e.g., invalid authorization token), or client has broken the rate limit")
  }
  if(status == 403){
    stop("Insufficient privileges for the request")
  }
  if(status == 500){
    stop("Server-related issue. Please contact Sciwheel if the error persists")
  }
  bib_out <- content(get_bib, "text")
  cat(bib_out,file = file_name)
}