-
Notifications
You must be signed in to change notification settings - Fork 2
/
LSE NAMES.R
32 lines (26 loc) · 929 Bytes
/
LSE NAMES.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
library(rvest)
FTSE_URL<-"https://www.reuters.com/finance/stocks/company-officers/"
url<-paste0(FTSE_URL,CODE2[[i]])
webpage<-read_html(SEARCH)%>%
html_table()
FTSE_TABLE<-webpage[[1]]
FTSE_TABLE$company_code<-CODE[[i]]
FTSE_TABLE$Name[1]
LSE_NAME_LIST<-list()
for (i in 1:length(CODE)){
url<-"https://www.londonstockexchange.com/exchange/searchengine/search.html?lang=en&x=0&y=0&q="
SEARCH<-paste0(url,CODE[[i]])
webpage<-read_html(SEARCH)%>%
html_table()
FTSE_TABLE<-webpage[[1]]
LSE_NAME_LIST[[i]]<-FTSE_TABLE$Name[1]
}
LSE_NAME<-data.frame(CODE=CODE,
NAME_LSE=unlist(LSE_NAME_LIST))
LSE_NAME$edit<-gsub("ORD.*","",LSE_NAME$NAME_LSE)
sheet_name<-as.character(Sys.Date())
FTSE_350_DF<-merge(FTSE_350_DF,LSE_NAME,by="CODE")
FTSE_350_DF<-select(FTSE_350_DF,-NAME_LSE)
write.xlsx(FTSE_350_DF, file = "FTSE_350_FIRM_LIST.xlsx",
sheetName=sheet_name,
append=TRUE)