Fallback sur du Chi2 si impossibilité de calculer le Fisher (avec mention de l'échec)

R/desc_groupe.R

@@ -173,7 +173,15 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
         warning=function(w)
         {
           test <<- "f"
-          fisher.test(table[[var]],modulo,workspace=2e6)$p.value
+          tryCatch(
+          {
+            fisher.test(table[[var]],modulo,workspace)$p.value
+          },
+          error=function(e)
+          {
+            test <<- "X(f failed)"
+            chisq.test(table[[var]],modulo)$p.value
+          })
         },
         error=function(e)
         {