1

我有一个由 1 个过滤器、1 个日期和提交按钮组成的简单闪亮。因此，如果用户在过滤器、日期中选择任何值并单击提交按钮，结果将显示在表格中。有时，该表未显示并引发一些错误。但是作为用户，我们无法检查过滤器、日期的所有可能组合来检查表格是否显示。所以我有一个下面的代码来检查。我正在尝试在这里运行一个 for 循环，但无法执行。谁能帮帮我吗

app <- ShinyDriver$new(getwd())
new_value <- app$setInputs(ID = "AAA", Date = "2019-12-27", Submit = "click")
expect_error(new_value)
app$stop()

因此，我的数据集中实际上有 8 个 ID，如下所示，并且有 2 个日期。如果我收到任何错误，我需要检查所有可能的组合 ID 和日期。所以我打算写一个for循环（写下来）

df
ID          dates
AAA     2019-12-27  
BBB     2019-12-28
CCC     2019-12-27  
DDD    2019-12-28
EEE    2019-12-27  
FFF     2019-12-28
GGG     2019-12-27  
HHH     2019-12-28

循环

app <- ShinyDriver$new(getwd())
new_value <- list()
for (i in length(df$ID)) {
  for (j in length(df$dates)) {
    new_value <- app$setInputs(Tic = df$ID[i], Date = df$dates[j], Submit = "click")
  }
}
expect_error(new_value)
app$stop()
4

0 回答 0