如何在提交的所有时间显示验证码挑战对话框

Question

我正在尝试实施google reCaptcha。我的代码：

library(tidyr) # 0.8.3.9000
out %>% 
   pivot_longer(cols = perc1:n3, names_to = c( "perc", "n"), 
            names_sep = "(?<=[a-z])(?=[0-9])") %>%
   group_by(STUDY, ID, n) %>%
   summarise(value = sprintf("%d (%d%%)", last(value), first(value))) %>% 
   select(-n)

} 当我单击按钮时，reCaptcha将显示带有多个图像的对话框，用户应在其中选择所有带有汽车，助攻剂等的图像。

但是，有时候。单击按钮后，我总是收到onSuccess回调，并且对话框从不显示。

如何控制显示图像以供选择？