R/currencyListParse.R

In Lyrohk/cruncher: Crunchbase API v4.0

#' Helper function to parse a currency element
#'
#'@return parsed output
#'
#' @author Layla Rohkohl, \email{byehity@gmail.com}
#'
#' @examples
#' currencyListParse(CurrencyElement)
#'
#'
# Currency Parse for lists with value and value_usd
currencyListParse <- function(fields_data, field) {
  # Check if it has content
  if(length(fields_data) == 0) {
    df <- data.frame(value = NA, currency = NA, value_usd = NA) 
    colnames(df) <- c(paste(field, sep = "_", "value"), 
                      paste(field, sep = "_", "currency"),
                      paste(field, sep = "_", "value_usd"))
    return(df)
  } else {
    # Get value, currency, and value_usd
    value <- data.frame(paste(as.character(fields_data$value), collapse=", "))
    colnames(value) <- paste(field, sep = "_", "value")
    currency <- data.frame(paste(as.character(fields_data$currency), collapse=", "))
    colnames(currency) <- paste(field, sep = "_", "currency")
    value_usd <- data.frame(paste(as.character(fields_data$value_usd), collapse=", "))
    colnames(value_usd) <- paste(field, sep = "_", "value_usd")
    # Return currency data.frame
    return(cbind(value, currency, value_usd)) 
  }
}