R/gtr_project_impact_function.R

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

#' @title gtr_project_impact
#'
#' @description This function extracts project impact information
#' @param url project URL from gtr.ukri.org
#' @export
#' @return Dataframe of project impact

gtr_project_impact<-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

  pt<-ORG$project$title
  pti<-ORG$project$id
  imp<-ORG$project$output$impactSummaryOutputs
  imp_df<-data.frame(impact_desc=imp$description,impact_first_year=imp$firstYearOfImpact,
                     impact_sector=imp$sector,impact_types=unlist(imp$impactTypes))
  imp_df2<-dplyr::mutate(imp_df,project=pt,project_id=pti)
  #if(purrr::is_empty(imp_df)){
  #  imp_df<-dplyr::tibble(imp_df,project=pt,project_id=pti)
  #}else{
  #  imp_df<-dplyr::mutate(imp_df,project=pt,project_id=pti)
  #}

  return(imp_df2)
}