在进行提取证件信息时出现报错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

报错如下
In if (nchar(id) == 18) substr(id, 7, 14) else paste("19", substr(id,  :
  the condition has length > 1 and only the first element will be used

我使用的代码是这个
sapply(data[,1],afunc)

afunc<-function(id){  
  if(nchar(id)==15)
    paste('19',substr(id,7,12),sep="")  
  else  
    substr(id,7,14)  
}  

源数据是这样的

身份证号                          调查日期        出现次数        身份证合法
320521197105053000        2010/5/1                1        合法
350127194703133000        2010/4/30        1        合法
320503511110254           2010/5/1                1        合法
320504371115153                2010/5/1                 1        合法
320502196201222000        2010/5/1               1        合法
320525195603122000        2010/5/1            1        合法
510702197306050000        2010/5/1                1        合法
350121197403245000        2010/4/30        1        合法
510723196810201000        2010/5/1                1        合法
NA                                        2010/5/1                1        NA
321002194504101000        2011/6/28        1        合法

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖