Closes #6 by using purrr::safely() to catch any tickers that fail. If all fail, an error is thrown. Otherwise, the user is warned about the tickers that fail but the rest of the data is returned.
Example from that issue:
library(riingo)
tickers <- c("AAPL","IBM","F","BADTICKER")
riingo_prices(tickers)
#> Warning: Download failure with BADTICKER, removing. See full message below:
#> The ticker name, BADTICKER, is invalid or data is currently not available. Check ticker validity with is_supported_ticker().
#> Tiingo msg) Error: Ticker 'BADTICKER' not found
#> # A tibble: 753 x 14
#> ticker date close high low open volume adjClose
#> <chr> <dttm> <dbl> <dbl> <dbl> <dbl> <int> <dbl>
#> 1 AAPL 2018-05-10 00:00:00 190. 190. 188. 188. 2.80e7 187.
#> 2 AAPL 2018-05-11 00:00:00 189. 190. 187. 189. 2.62e7 186.
#> 3 AAPL 2018-05-14 00:00:00 188. 190. 188. 189. 2.08e7 186.
#> 4 AAPL 2018-05-15 00:00:00 186. 187. 185. 187. 2.37e7 184.
#> 5 AAPL 2018-05-16 00:00:00 188. 188. 186 186. 1.92e7 186.
#> 6 AAPL 2018-05-17 00:00:00 187. 189. 186. 188 1.73e7 185.
#> 7 AAPL 2018-05-18 00:00:00 186. 188. 186. 187. 1.83e7 184.
#> 8 AAPL 2018-05-21 00:00:00 188. 189. 187. 188 1.84e7 186.
#> 9 AAPL 2018-05-22 00:00:00 187. 189. 187. 188. 1.52e7 185.
#> 10 AAPL 2018-05-23 00:00:00 188. 188. 186. 186. 2.01e7 186.
#> # … with 743 more rows, and 6 more variables: adjHigh <dbl>, adjLow <dbl>,
#> # adjOpen <dbl>, adjVolume <int>, divCash <dbl>, splitFactor <dbl>
Created on 2019-05-10 by the reprex package (v0.2.1.9000)
Closes #6 by using
purrr::safely()
to catch any tickers that fail. If all fail, an error is thrown. Otherwise, the user is warned about the tickers that fail but the rest of the data is returned.Example from that issue:
Created on 2019-05-10 by the reprex package (v0.2.1.9000)