使用tbl_summary调用fisher.test遇FEXACT error 40（内存不足）求助

我在tbl_summary中为gleason和SEER_registry两个变量指定fisher.test计算组间P值时，因为这两个变量的交叉单元格存在极小值，触发了FEXACT error 40（Out of workspace），导致这两个变量的P值无法生成。已查阅相关问答但未找到可行解决方案，当前使用的代码如下：

table1 <- prostate_v4 %>% tbl_summary(include = c(age_newcat, race, marital_newcat, year_of_diagnosis, PSA, 
                                  gleason, T_stage, survival_months, cat_pos_core, 
                                  surg_newcat, radiation_newcat, chemotherapy, phys, urology_total, 
                                  urology_TPC, rad_oncology, hospital_beds, med_income, less_HS, 
                                  with_HS_more, college, poverty_1, poverty_2, poverty_3,
                                  poverty_4, poverty_5, poverty_6, poverty_7, deep_poverty,
                                  SEER_registry),
                                  by = watchful_waiting) %>% add_p(test = list(c("gleason", "SEER_registry") ~ "fisher.test"))


table1 %>% as_flex_table() %>% flextable::save_as_docx(table1, path = '/Users/.../table1.docx')

附包含极小值单元格的表格截图：

内容的提问来源于stack exchange，提问作者rocknroll