Der Loop funktioniert, aber fehlende Ergebnisse werden nicht angezeigt. Ich möchte aber eine Liste/Table erstellen, die die Variable i ("firmen") und die gefundenen Ergebnisse anzeigt oder eine NA, falls es kein Ergebnis gab.
Ich hoffe, dass ihr mir helfen könnt. Vielen Dank!!!
Hier der code:
Code: Alles auswählen
library(rvest)
# company_names
firmen <- c(read.table("Mappe1.txt"))
# init
df <- NULL
# loop for search names in Yahoo Ticker Lookup
for(i in firmen){
# find url
url <- paste0("https://finance.yahoo.com/lookup/all?s=", i, "/")
page <- read_html(url,as="text")
# grab table
table <- page %>%
html_nodes(xpath = "//*[@id='lookup-page']/section/div/div/div/div[1]/table/tbody/tr[1]/td[1]") %>%
html_text() %>%
as.data.frame()
# bind to dataframe
df <- rbind(df, table)
}