-
Notifications
You must be signed in to change notification settings - Fork 0
/
getData.R
71 lines (50 loc) · 1.73 KB
/
getData.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
library(httr)
library(jsonlite)
getCurrencies <- function() {
tryCatch(expr = {
res = GET("https://api.frankfurter.app/currencies")
data = fromJSON(rawToChar(res$content))
return(names(data))
},
error = function(e){
return('Could Not Connect')
})
}
getLatestConversion <- function(currFrom, currTo, amount) {
tryCatch(expr = {
res = GET(paste0("https://api.frankfurter.app/latest?from=", currFrom, "&to=", currTo, "&amount=", amount))
data = fromJSON(rawToChar(res$content))
return(data[['rates']][[currTo]])
},
error = function(e){
return('Could Not Connect ')
})
}
getHistoricalConversion <- function(currFrom, currTo, amount, time){
tryCatch(expr = {
res = GET(paste0("https://api.frankfurter.app/", time, "?from=", currFrom, "&to=", currTo, "&amount=", amount))
data = fromJSON(rawToChar(res$content))
return(data[['rates']][[currTo]])
},
error = function(e){
return('Could Not Connect')
})
}
getPlot <- function(timeFrom, timeTo, currFrom, currTo){
tryCatch(expr = {
res = GET(paste0("https://api.frankfurter.app/", timeFrom, "..", timeTo, "?from=", currFrom, "&to=", currTo))
data = fromJSON(rawToChar(res$content))
rates = c()
for(r in names(data$rates)){
rates = c(rates, as.numeric((data$rates)[[r]][[currTo]]))
}
plotData = data.frame(time = as.Date(names(data$rates)), rates = rates)
plot <-ggplot(plotData, aes(x=time, y=rates)) +
geom_line(colour = '#e95420', size = 0.75)
plot <- ggplotly(plot) %>% layout(hovermode = "x unified")
return(plot)
},
error = function(e){
return('Could Not Connect')
})
}