In NorquantDev/smartETF: Screener Web Application

knitr::opts_chunk$set(echo = FALSE,warning = FALSE,message=FALSE)
eod <- data.table::fread(paste("https://eodhistoricaldata.com/api/eod/",params$ticker,"?api_token=5c7c3c6b756f36.04138208&"))
try(fundamentals <- RJSONIO::fromJSON(paste0("https://eodhistoricaldata.com/api/fundamentals/",params$ticker,"?api_token=5c7c3c6b756f36.04138208&"),null=NA,encoding="Latin1"), silent = FALSE)

r paste0("https://eodhistoricaldata.com",fundamentals[['General']][['LogoURL']]) style = 'position:absolute; top:0; right:0; padding:10px;'>

r fundamentals$General[3]

r fundamentals$General[3] is listed on r fundamentals$General[4]. r fundamentals$General[10] The funds category is r fundamentals$General[11]

Technical Data

kableExtra::kable(fundamentals$Technicals)

Other info

Company Name: r fundamentals[["General"]][["Name"]]
Company URL r fundamentals[["General"]][["webURL"]]
Type r fundamentals[["General"]][["Type"]]
Exchange r fundamentals[["General"]][["Exchange"]]
Currency Name r fundamentals[["General"]][["CurrencyName"]]
Country Name r fundamentals[["General"]][["CountryName"]]
ISIN r fundamentals[["General"]][["ISIN"]]
Fiscal Year End r fundamentals[["General"]][["FiscalYearEnd"]]
Sector r fundamentals[["General"]][["Sector"]]
Industry r fundamentals[["General"]][["Industry"]]
IPO Date r fundamentals[["General"]][["IPODate"]]

Adjusted end-of-day prices / volumes

eod$Date <- as.Date(eod$Date,"%Y-%m-%d")
eod$Adjusted_close <- as.numeric(eod$Adjusted_close)
ggplot2::ggplot(eod, aes(x=Date, y=Adjusted_close)) + geom_line() + theme_minimal()

kableExtra::kable(fundamentals[["Highlights"]])

NorquantDev/smartETF documentation built on July 7, 2019, 8:21 p.m.