R/gtr_project_pub_function.R

In MatthewSmith430/GtR: Access Gateway to Research data via the API

#' @title gtr_project_pub
#'
#' @description This function extracts pulciation output for a project
#' @param url project URL from gtr.ukri.org
#' @export
#' @return Dataframe with publication
gtr_project_pub<-function(url){
  firmTEST<-httr::GET(url,httr::add_headers("Accept: application/vnd.rcuk.gtr.json-v7"))
  firmTEXT<-httr::content(firmTEST, as="text")
  JLfirm<-jsonlite::fromJSON(firmTEXT, flatten=TRUE)

  ORG<-JLfirm$projectOverview$projectComposition
  PUB<-ORG$project$publication
  if (purrr::is_empty(PUB)==TRUE){
    PUB<-dplyr::tibble(id=url,pub=0)
  }else{
    PUB<-dplyr::select(PUB,-"authors")
    PUB_date<-anytime::anytime(PUB$date/1000)
    PUB$date<-PUB_date
    }
  return(PUB)
}