R/q_splits.R

In zac-garland/eqdata: Financial Data From Financial Modeling Prep

#' q_splits
#'
#' @export

q_splits <- function(ticker){
  q_splits <- function(ticker){
    url <- paste0("https://financialmodelingprep.com/api/v3/historical-price-full/stock_split/",stringr::str_to_upper(ticker))
    
    fmp_data(url) %>% 
      dplyr::select(-label) %>% 
      clean_fmp_data()
    
    
  }
  
  safe_q_splits <- purrr::safely(q_splits)
  purrr::map_dfr(ticker,~{
    safe_q_splits(.x)$result
  })
}