程序如下，
#nature设置 是否输出词性
data.wordseg <- segmentCN(data.all$description, nature = TRUE)
for(i in 1:6000){
  print(i)
  data.wordseg[[i]] <- data.wordseg[[i]][names(data.wordseg[[i]]) %in% c("userDefine","a","ad","an","j","n","nr","ns","nz","v","vd","vn")]
}

报错：
Error in rep(seq_along(X), times = as.numeric(X)) :
  invalid 'times' argument
In addition: Warning messages:
1: In strsplit(strout, split = " ") :
  input string 3 is invalid in this locale
2: In strsplit(strout, split = " ") :
  input string 4 is invalid in this locale
3: In strsplit(strout, split = " ") :
  input string 5 is invalid in this locale
4: In strsplit(strout, split = " ") :
  input string 6 is invalid in this locale
5: In strsplit(strout, split = " ") :
  input string 7 is invalid in this locale

不知道怎么调试了，求助各位