【R】no applicable method for 'xml_find_all' applied to an object of class "xml_document"

# 安装依赖包
if (!require(rvest)) {
  install.packages("rvest")
}

if (!require(xml2)) {
  install.packages("xml2")
}

# 引入
library(rvest)

# 正文
stock_code <- "000616"
year_code <- "2018"
season_code <- "1"


url <-
  paste(
    "https://quotes.money.164.com/trade/lsjysj_",
    stock_code,
    ".html?year=",
    year_code,
    "&season=",
    season_code,
    sep = ""
  )

web_page <- read_html(url)
web_table <- html_table(web_page,
                        header = TRUE,
                        trim = TRUE,
                        fill = TRUE)
# 安装依赖包
if (!require(rvest)) {
  inst