1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
library(alphavantager) library(xlsx) av_api_key("YOUR_API_KEY") #Daily data quoteData <- av_get( symbol = "AAPL", av_fun = "TIME_SERIES_DAILY", outputsize = "full" ) #Hourly data quoteData <- av_get( symbol = "AAPL", av_fun = "TIME_SERIES_INTRADAY", interval = "60min", outputsize = "full" ) write.xlsx(quoteData, "C:\\Folder\\AAPL.xlsx",sheetName = "Daily data")
You can clone a snippet to your computer for local editing. Learn more.