[R-SIG-Finance] Web Scraping of SPY Stocks

[AIE ATUMA]

Dear All,
Please I need help. I ran the below function and got the highlighted error message. How can I correct it?
library(rvest)# Web-scrape SP500 stock listsp_500 <- read_html("https://en.wikipedia.org/wiki/List_of_S%26P_500_companies") %>%html_node("table.wikitable") %>%html_table() %>%select(`Ticker symbol`, Security, `GICS Sector`, `GICS Sub Industry`) %>%as_tibble()# Format namesnames(sp_500) <- sp_500 %>%names() %>%str_to_lower() %>%make.names()# Show resultssp_500
Error Message:
Error: Can't subset columns that don't exist.x Column `Ticker symbol` doesn't exist.Run `rlang::last_error()` to see where the error occurred.

The second function and the error is below:
get_stock_prices <- function(ticker), return_format = "tibble", ...) {  # Get stock prices  stock_prices_xts <- getSymbols(Symbols = ticker, auto.assign = FALSE, ...)  # Rename  names(stock_prices_xts) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")  # Return in xts format if tibble is not specified  if (return_format == "tibble") {    stock_prices <- stock_prices_xts %>%      as_tibble() %>%      rownames_to_column(var = "Date") %>%      mutate(Date = mdy(Date))  } else {    stock_prices <- stock_prices_xts  }  stock_prices}
"MA" %>%  get_stock_prices(return_format = 'tibble')%>%head()
ERROR MESSAGE:
Warning message:All formats failed to parse. No formats found. 


Thank You and Best Regards, Emeka I. AtumaIntegrity - Walk Your Talk Don't Talk Your Work 

   
  
	[[alternative HTML version deleted]]