Good tracking!
He made a request GET
for me. This seems to be a trick. He is also trying to choose a goal that suits you:
library(httr)
library(rvest)
library(stringi)
pg <- read_html("http://datacenter.mep.gov.cn/index!MenuAction.action?name=259206fe260c4cf7882462520e1e3ada")
html_nodes(pg, "div[onclick]") %>%
html_attr("onclick") %>%
stri_replace_first_fixed('load("', "") %>%
stri_replace_last_regex('",".*$', "") -> report_urls
head(report_urls)
rpt_pg <- read_html(report_urls[1])
html_table(rpt_pg)[[2]]