代码在脚本中运行但不在函数中运行

Question

我在R函数中运行代码时遇到问题。

function (fasta_soubor, prah = 10) 
{
x <- readDNAStringSet(fasta_soubor)
if (length(grep("N", x, ignore.case = T)) != 0) {
    x <- x[-grep("N", x, ignore.case = T)]
}
data <- as.data.frame(table(x))
data <- data[order(data$Freq, decreasing = TRUE), ]
pocet <- sum(data[, 2] > prah)
kond <- DNAStringSet(as.vector.factor(data[1:pocet, 1]))
pocty <- data[1:pocet, 2]
names(kond) <- paste(pocty, "_sekvenci", sep = "")
nazev <- paste(strsplit(fasta_soubor, "\\.")[[1]][1], "_condensed.fasta", 
    sep = "")
writeXStringSet(kond, nazev)
return(kond)
}

在以下位置返回错误：

data <- as.data.frame(table(x))

错误讯息：

  

.duplicated.XRawList（x，incomparables = incomparables，...）中的错误：   未使用的参数（nmax = NA）

但是当我尝试使用相同的参数逐行运行相同的代码时，它会顺利运行。在调试器中，as.data.frame（table（x））命令具有与脚本中相同的x参数，但它不起作用。