由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", .)]

可以这样做吗？

Answer 1

除了David的评论中的选项，你也可以这样做：

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

但我更喜欢大卫的方法。

请注意，您只在此处对字符向量进行子集化，该字符向量没有行号。

Answer 2

另一种选择是在value = TRUE内使用grep（这将为您节省一个额外的操作员）

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

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

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