showSigOfNodes

[zznx]

Hi, how to solve this problem?

# scRNA
de.file = read.csv('de.Inflammatory Related Fibroblasts.csv', row.names = 1)

.geneList = de.file$p_val_adj
names(.geneList) = rownames(de.file)

topDiffGenes_ <- function(allScore) {
  return(allScore < 0.05) 
}
GOdata <- new("topGOdata", ontology = "BP",
                    allGenes = .geneList, geneSel = topDiffGenes_,
                    nodeSize = 10,
                    annot = annFUN.org, mapping = "org.Hs.eg.db", ID='symbol')

resultKS.elim <- runTest(GOdata, algorithm = "elim", statistic = "ks")
showSigOfNodes(GOdata, score(resultKS.elim), firstSigNodes = 2, useInfo = 'all')
Error in if ((n <- as.integer(n[1L])) > 0) { : 
  missing value where TRUE/FALSE needed