r 在网站上的表刮板

Posted 2021-05-24

library("rvest")
url <- "https://bank.hangseng.com/1/2/rates/foreign-currency-tt-exchange-rates"

#Replace xpath with bits highlighting whole table on website using 'Inspect'

forex <- url %>%
  html() %>%
  html_nodes(xpath='//*[@id="viewns_7_0G3UNU10SD0MHTI7BJ91000000_:Display"]/div[1]/table') %>%
  html_table()
forex <- forex[[1]]

url2 <- "https://bank.hangseng.com/1/2/rates/gold-prices"

gold <- url2 %>%
  html() %>%
  html_nodes(xpath='//*[@id="viewns_7_0G3UNU10SD0MHTI7G5I0000000_:Display"]/div/table') %>%
  html_table()
gold<- gold[[1]]

timeform <- format(Sys.time(),"%Y-%m-%d,%H%M%S")
output_fx<-paste("Forex",timeform,".csv")
write.csv(forex,file=output_fx)

output_gold<-paste("Gold",timeform,".csv")
write.csv(gold,file=output_gold)