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

如上表示处理15和18位信息的函数如果不存在NA是可以完美运行的,如果出现NA就会报错
Error in if (nchar(id) == 15) paste("19", substr(id, 7, 12), sep = "") else if (nchar(id) ==  :
  missing value where TRUE/FALSE needed

求解如何解决