Description Usage Arguments Details Value Warning Note Author(s) References See Also Examples
~~ A concise (1-5 lines) description of what the function does. ~~
1 | getPipValue(instrument = "EUR_USD", acct, auth_id, acct_type = "fxpractice")
|
instrument |
~~Describe |
acct |
~~Describe |
auth_id |
~~Describe |
acct_type |
~~Describe |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
1 2 3 4 5 6 7 8 9 10 11 12 13 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (instrument = "EUR_USD", acct, auth_id, acct_type = "fxpractice")
{
auth <- c(Authorization = paste("Bearer", auth_id))
url <- paste0("https://api-", acct_type, ".oanda.com/v1/instruments?accountId=",
acct, "&instruments=", instrument)
pipval <- fromJSON(getURL(url, httpheader = auth))
return(as.numeric(pipval$instruments$pip))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.