使用prop.test无法复现expss包tab_last_sig_cpct结果的问题

近期使用expss包开展测试时，发现无法通过底层prop.test函数复现tab_last_sig_cpct的结果：prop.test显示存在显著差异，但tab_last_sig_cpct却未检测出显著差异。请问我是否存在操作失误？

测试代码如下：

dataset %>%
   tab_cells(X1, X2) %>%
   tab_cols(total(), X3, X4) %>%   
   tab_stat_cases(label = "N", total_row_position = "above") %>%
   tab_stat_cpct(label="%", total_statistic = "w_cpct", total_label = "#Total cases") %>%
   tab_last_sig_cpct() %>%
   tab_pivot(stat_position = "inside_columns") %>%
   drop_empty_rows() %>%
   drop_empty_columns()

• expss包输出截图
• prop.test结果截图

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