如何返回与变量中给定字符串匹配的字符串

Question

我正在抓IMDb并希望仅按一种类型对电影进行分类，但它们会返回多个。

如何制作它以便它们只返回我指定的类型？

IMBD_Movies <- html_session("http://www.imdb.com/chart/top")

movieTitles <- IMBD_Movies %>% 
html_nodes(".titleColumn a")%>%
html_text()%>%head(5)

genres <- c("Adventure", "Action", "Comedy", "Drama", "Horror")

IMBD_genres <- list()

for(i in movieTitles){
  genrePage <- IMBD_Movies %>% follow_link(i)
  IMBD_genres[[i]]$genre <- genrePage%>%
    html_nodes(".subtext .itemprop") %>% html_text()
}

Shawshank Redemption返回“犯罪”和“戏剧”，但我只想要“戏剧”回归。

Answer 1

我假设您只想要输出那些类型，在您声明的类型向量中提到。

将最后一行添加到for循环中可以得到结果：

$http.get('api/url-api').then(successCallback, errorCallback);

function successCallback(response){
   //success code
}
function errorCallback(error){
   //error code
}

＆＃34;＆＃34;＆＃34;为您提供IMBD_genres [[i]] $流派中所需的索引。

希望有所帮助。