Create version of `get_track_audio_features()` which takes artist name and title.

track_audio_features.R

# create function for getting song features
track_audio_features <- function(artist, title, type = "track") {
  search_results <- search_spotify(paste(artist, title), type = type)
  track_audio_feats <- get_track_audio_features(search_results$id[[1]]) %>%
    dplyr::select(-id, -uri, -track_href, -analysis_url)
  
  return(track_audio_feats)
}

# create a version of this function which can handle errors
possible_af <- possibly(track_audio_features, otherwise = tibble())