Question

这是我处理

的字符串的示例

string <- c("<tr><td valign=\"top\"><img src=\"/icons/compressed.gif\" alt=\"[   ]\"></td><td><a href=\"ABC.RAP_0.9.0.zip\">ABC.RAP_0.9.0.zip</a></td><td align=\"right\">2018-03-20 21:52  </td><td align=\"right\">4.6M</td><td>&nbsp;</td></tr>", 
            "<tr><td valign=\"top\"><img src=\"/icons/compressed.gif\" alt=\"[   ]\"></td><td><a href=\"ABCanalysis_1.2.1.zip\">ABCanalysis_1.2.1.zip</a></td><td align=\"right\">2017-12-09 13:59  </td><td align=\"right\"> 54K</td><td>&nbsp;</td></tr>", 
            "<tr><td valign=\"top\"><img src=\"/icons/compressed.gif\" alt=\"[   ]\"></td><td><a href=\"ABCoptim_0.15.0.zip\">ABCoptim_0.15.0.zip</a></td><td align=\"right\">2018-03-20 21:53  </td><td align=\"right\">566K</td><td>&nbsp;</td></tr>")

此字符串由

生成

readLines("https://dirichlet.mat.puc.cl/bin/windows/contrib/3.3/")

我需要提取R包名称。我可以使用sub这样做：

> gsub("(.\\.zip).*", "\\1", sub(".*href[[:punct:]]{2}", "", string))
[1] "ABC.RAP_0.9.0.zip"     "ABCanalysis_1.2.1.zip" "ABCoptim_0.15.0.zip"

正如您所看到的，我使用了gsub两次，我只想通过调用gsub一次来寻找更简单的方法。我想仅使用R基函数来完成它。

Answer 1

不要使用RegEx来解析HTML。使用rvest

尝试这样做

library(rvest)

url <- 'https://dirichlet.mat.puc.cl/bin/windows/contrib/3.3/'

packageList <- url %>% read_html() %>% html_nodes("a") %>% html_text()

# remove extra entries
packageList <- packageList[7:length(packageList)]

head(packageList)

[1] "A3_1.0.0.zip"           "ABC.RAP_0.9.0.zip"      "ABCanalysis_1.2.1.zip"  "ABCoptim_0.15.0.zip"    "ABCp2_1.2.zip"         
[6] "ABHgenotypeR_1.0.1.zip"

Answer 2

我可以使用以下简单的正则表达式解决问题：

> gsub(".*>(.*\\.zip)<.*", "\\1", string)
[1] "ABC.RAP_0.9.0.zip"     "ABCanalysis_1.2.1.zip" "ABCoptim_0.15.0.zip"

从html文件中提取文件名

2 个答案: