我正在尝试通过登录并执行某些操作为我的网站编写测试。我有一个非常接近工作的脚本但是有一个我无法绕过的关键缺陷。见下面的逻辑
plot_ma = function(x){
ncol = nlevels(x[["CT_DS"]]) - 1
pal = cbPalette[1:ncol]
x %>%
group_by(CT_DS) %>%
ggvis(~CAL_DATE, ~ma_AHT, stroke = ~CT_DS) %>%
layer_lines() %>%
filter(CT_DS == "Overall") %>%
layer_lines(stroke := "black", strokeWidth := 3) %>%
set_options(renderer = "canvas") %>%
add_legend("stroke", title = "~ CT") %>%
add_axis("x", title = "Date", title_offset = 60,
properties = axis_props(
labels = list(
angle = -50,
align = "right",
baseline = "middle"
))) %>%
add_axis("y", title = "M.A. AHT (sec)") %>%
scale_nominal("stroke", range = c(pal, "black"))
}
plot_ma(data)
因此,这会生成精细的图像,填写表格。问题在于注入“新的Captcha()”函数。例如,如果我不需要首先看到表单的图像,我可以输入我的用户名并通过ask函数传递,它将填满所有内容。但这似乎是在幽灵般的承诺之前进行评估。
当我运行脚本时,它首先要求输入短语,然后在我输入后生成图像。我需要在询问短语之前生成图像。如果有人能够对我的问题有所了解那就太棒了!如果您需要更多信息,请与我们联系。