r - magrittr 链中的行号子集

Question

我正在使用 grep/gsub 等试验 magrittr 链

这很好用

top_url <- "http://www.england.nhs.uk/statistics/statistical-work-areas/ae-waiting-times-and-activity/"

readLines(top_url) %>% grep("SitReps", .)

下一步是使用行号返回一个子集。我试过这个，但它不起作用。

readLines(top_url) %>% .[grep("SitReps", .)]

这可以做到吗？

score 3 · Accepted Answer

除了大卫评论中的选项之外，您还可以执行以下操作：

readLines(top_url) %>% extract(grep("SitReps", .))

但我更喜欢大卫的方法。

请注意，您在这里只对一个字符向量进行子集化，它没有行号。

score 3 · Accepted Answer

另一种选择是使用value = TRUEwithin grep（这将为您节省一个额外的运算符）

readLines(top_url) %>% grep("SitReps", ., value = TRUE)

或者只是修改您自己的代码并[以下列方式使用

readLines(top_url) %>% `[`(grep("SitReps", .))

2 回答 2