Snippets

Tiago Santos AlphaVantage Sample

Created by Tiago Santos
avGetQuoteData.r
Raw 
 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")

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.