512_Lab_1

what_metrics <- yahooQF(c("Price/Sales", 
                          "P/E Ratio",
                          "Price/EPS Estimate Next Year",
                          "PEG Ratio",
                          "Dividend Yield", 
                          "Market Capitalization"))

tickers <- c("WYNN", "LVS", "MGM", "CZR")

metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)

metrics <- data.frame(Symbol=tickers, metrics[,2:length(metrics)]) 

colnames(metrics) <- c("Symbol", "P-E Ratio", "Price EPS Estimate Next Year", "Div Yield", "Market Cap")

# datatable(metrics)%>%formatPercentage('Price EPS Estimate Next Year', 4)
#                   %>%formatCurrency('Market Cap',currency = "", interval = 3, mark = ",")
# 
# datatable(metrics)  %>%  formatPercentage('Price EPS Estimate Next Year', 4) %>%
#   formatCurrency('Market Cap',currency = "", interval = 3, mark = ",")

DT::datatable(metrics)