解析表与RVest返回空列表

Question

我尝试了以下代码来解析表 ftp site中的信息：

library(tidyverse)
#> Registered S3 method overwritten by 'rvest':
#>   method            from
#>   read_xml.response xml2
library(rvest)
library(xml2)
#> Loading required package: xml2
ghcn_url <- "ftp://ftp.ncdc.noaa.gov/pub/data/ghcn/daily/by_year/"
# Reading the HTML code from the website
ghcn_html <- xml2::read_html(x = ghcn_url)
ghcn_html %>%
    html_nodes("table") %>%
    html_table(fill = TRUE)
#> list()

^{由reprex package（v0.2.1）于2019-05-15创建}

^{由reprex package（v0.2.1）于2019-05-15创建}

它当前返回一个空列表，即list()

任何人都可以解释一下如何获得小标题 带有3个必填列：“名称”，“大小”，“修改日期”。

检查页面源时，有一个<table>标签。所以觉得以上应该可行。 谁能告诉我如何更正代码？