Error and warning in running Investigate function for PCA results

[Irish23]

Hi, I was trying to run a test data using the investigate function for PCA results but I am having these error and warning:

> res.pcatest = PCA(testdata, graph = FALSE)
> Investigate(res.pcatest, file = "PCA.Rmd", document = c("word_document", "pdf_document"))
-- creation of the .Rmd file (time spent : 0s) --

-- detection of outliers (time spent : 0.12s) --
0 outlier(s) terminated 

-- analysis of the inertia (time spent : 0.18s) --
3 component(s) carrying information : total inertia of 84.9% 

-- components description (time spent : 4.87s) --
plane 1:2 
Error in factor(Idata$clust, labels = 1:(last.clust - length(false.clust))) : 
  invalid 'labels'; length 5 should be 1 or 4
In addition: Warning messages:
1: In if (document == "Word" | document == "word" | document == "doc" |  :
  the condition has length > 1 and only the first element will be used
2: In if (document == "html" | document == "HTML" | document == "HTML_document") { :
  the condition has length > 1 and only the first element will be used
3: In if (document == "pdf" | document == "PDF") { :
  the condition has length > 1 and only the first element will be used
4: In if (document == "word_document") { :
  the condition has length > 1 and only the first element will be used
5: In `[<-.factor`(`*tmp*`, Idata$clust %in% false.clust, value = 6) :
  invalid factor level, NA generated

I wonder if anyone encountered the same error and was able to fix it?

Thanks,
Irish