library(shinytest2)

test_that("{shinytest2} recording: sampleapp", {
  app <- AppDriver$new(name = "sampleapp", height = 905, width = 565)
  app$upload_file(data_file = "knn_imp.csv")
  app$set_inputs(predictor_col = "cd")
  app$set_inputs(predictor_col = "cd_")
  app$set_inputs(predictor_col = "cd_2022")
  app$set_inputs(seed_input = 123)
  app$set_inputs(num_folds_input = 2)
  app$set_inputs(num_repeats_input = 1)
  app$set_inputs(grid_input = 2)
  app$click("analyze_btn")
  app$expect_values(output = "model_comparison_plot")
  app$expect_values(output = "best_model_comparison")
  app$expect_values(output = "best_model_nom")
  app$expect_values()
})