A little suggestion about the "addPval"

[CC-DrDU]

Sometimes the P value and the adjusted P value are very low, and in that case when "addPval = T" is set, the P value and the Adjusted P value will be displayed as "0". I have tried to modify the code. Here is what I have written, which I think is rather stupid but work just fine.

  # add NES Pvalue
  if (addPval == TRUE) {
    pLabel <- paste0(
      "NES =",
      round(data_ga$NES, digits = nesDigit),
      "\n",
      "Pvalue ",
      ifelse(data_ga$pvalue<0.001,"< 0.001",paste0("= ",round(data_ga$pvalue, digits = pDigit),sep="")),
      "\n",
      "Ajusted Pvalue ",
      ifelse(data_ga$p.adjust<0.001,"< 0.001",paste0("= ",round(data_ga$p.adjust, digits = pDigit),sep="")),
      "\n",
      sep = " "
    )

Here is what I have got.

Anyway thank you so much for your remarkable work.