性别给定名字

问题描述

我正在尝试使用这个可爱的小功能来rvest设置约1000个唯一names的性别：

编辑：功能已更新，可以直接返回性别。根据下面的@Ronak Shah输出，我意识到它不准确（即Greg => Female）

 gender_from_name <- function(name){
      name_url <- paste("https://nameberry.com/babyname/",name,sep = "")
      is_it_a_boy <- read_html(name_url) %>% 
        html_nodes("span.meta-section span a") %>% 
        html_text(trim=TRUE)
      return (is_it_a_boy)
      }

但是，当诸如Håkan这样的名称的网址不存在时，代码会跳闸

例如：

 names <- data.frame(c("Grant","Greg","Gregory","Guillaume","Guy","Gwen","Gyuri","Håkan"))
    gender <- apply(names,1,gender_from_name)

产生Error in open.connection(x,"rb") : HTTP error 400.可以抑制它吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r rvest