У меня есть простой блеск, состоящий из 1 фильтра, 1 даты и кнопки отправки. Поэтому, если пользователь выбирает какое-либо значение в фильтре, дату и нажимает кнопку отправки, результаты отображаются в виде таблицы. Время от времени таблица не отображается и выдает какую-то ошибку. Но, как пользователь, мы не можем проверить все возможные комбинации фильтра, дату, чтобы проверить, отображается таблица или нет. Так что у меня есть код ниже, чтобы проверить это. я пытаюсь запустить здесь для l oop, но не могу выполнить. Может кто-нибудь, пожалуйста, помогите мне
app <- ShinyDriver$new(getwd())
new_value <- app$setInputs(ID = "AAA", Date = "2019-12-27", Submit = "click")
expect_error(new_value)
app$stop()
Так что в моем наборе данных, показанном ниже, есть 8 идентификаторов и есть 2 даты. Мне нужно проверить все возможные комбинации ID и даты, если я получаю какие-либо ошибки или нет. Поэтому я планирую написать для l oop (записано)
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
Для l oop
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()