Я использую следующий код, который получает Годовой отчет о доходах для Google.Я пытаюсь изменить его, чтобы получить квартальные счета, но ссылки одинаковы как для годовых, так и для квартальных.Правильно ли я считаю, что мне нужно что-то изменить, чтобы загрузить таблицу из этой строки кода: html_nodes(xpath = '//*[@id="Col1-1-Financials-Proxy"]/section/div[3]/table')
Код:
symbols <- "GOOG"
url <- "https://finance.yahoo.com/quote/"
url <- paste0(url,symbols,"/financials?p=",symbols)
url
wahis.session <- html_session(url)
p <- wahis.session %>%
html_nodes(xpath = '//*[@id="Col1-1-Financials-Proxy"]/section/div[3]/table')%>%
html_table(fill = TRUE)
p
IS <- p[[1]]
colnames(IS) <- paste(IS[1,])
IS <- IS[-c(1,5,12,20,25),]
names_row <- paste(IS[,1])
IS <- IS[,-1]
IS <- apply(IS,2,function(x){gsub(",","",x)})
IS <- as.data.frame(apply(IS,2,as.numeric))