如果大于R中的特定长度,如何删除列值中的最后一个字符?

deseq.res

deseq.res<-structure(list(Gene = c("SS1G_0300902", "SS1G_024991", "SS1G_09248", 
"SS1G_09768"), sampleA = c("Healthy", "Healthy", "Healthy", "Healthy"
), sampleB = c("Infected", "Infected", "Infected", "Infected"
)), .Names = c("Gene", "sampleA", "sampleB"), row.names = c(NA, 
4L), class = "data.frame")

我想要的结果是:

        Gene sampleA  sampleB
SS1G_03009 Healthy Infected
SS1G_02499 Healthy Infected
SS1G_09248 Healthy Infected
SS1G_09768 Healthy Infected

我试过的代码:

这就是我遇到的问题,然后我可以简单地使用gsub或substring。我可以用更精细的方法来做,但我想用函数来做这件事。

check.len<- function(x){if (length(deseq.res$Gene[x])>10) return (x)}
check.len(deseq.res$Gene)