R/lookupFundingRoundCard.R

In Lyrohk/cruncher: Crunchbase API v4.0

#' Function to lookup and paginate through a single card for a single funding round over the Entity Lookup API Endpoint
#'
#' Takes the entity id to lookup a card and paginate through the entities and parse them into a data.frame
#'
#'@param entity_card card field of interest that will be returned. Only one please!
#'@param entity_id UUID or permalink of the funding round you wish to look up
#'@param please_parse Logical. By default TRUE and will parse your data from a list of data.frames to a final data.frame with empty elements dropping out.
#'@return a data.frame
#'
#' @author Layla Rohkohl, \email{byehity@gmail.com}
#'
#' @examples
#' lookupFundingRoundCard(funding_round_card = "degrees", funding_round_id = "mark-zuckerberg")
#'
#'@export
#'
lookupFundingRoundCard <- function(funding_round_card, funding_round_id, please_parse = TRUE) {
  if (length(funding_round_id) == 0) {
    stop("Please provide a valid funding_round_id.")
  } else if (length(funding_round_id) == 1) {
    # Lookup the cards for a single id
    return(lookupEntityCard(entity_card = funding_round_card, entity_id = funding_round_id, entity_path = "funding_rounds"))
  } else {
    # Add duplicate and time check
    duplicateTimeCheck(funding_round_id)

    # Check please_parse
    if (please_parse) {
      # Bind data into a final data.frame with those elements without data dropping out
      return( rbind_pages(silenceFun(lapply(funding_round_id, lookupEntityCard, entity_card = funding_round_card, entity_path = "funding_rounds"))) )
    } else {
      # Return a list of (potentially empty) data.frames
      return(silenceFun(lapply(funding_round_id, lookupEntityCard, entity_card = funding_round_card, entity_path = "funding_rounds")))
    }
  }
}