From 566a918bc0493cdd643f62e8d4151d58983748f3 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Apr 2024 16:58:43 -0400
Subject: [PATCH] Repair introJS

---
 R/mod_introJS_utils_text.R    | 2 +-
 tests/testthat/test-introJS.R | 5 -----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/R/mod_introJS_utils_text.R b/R/mod_introJS_utils_text.R
index f6fc73973..4bb94685a 100644
--- a/R/mod_introJS_utils_text.R
+++ b/R/mod_introJS_utils_text.R
@@ -23,7 +23,7 @@ sidebar_steps <-
 # appui tab widgets
 apptab_steps <- data.frame(
   element = c(
-    "[data-value=assessment-criteria-tab]", "[data-value=database-tab]"),
+    "[data-value=about-tab]", "[data-value=database-tab]"),
   intro = c("Discover the package assessment process & criteria",
             "Review the R packages that already exist in the database"),
   position = c(rep("bottom", 2))
diff --git a/tests/testthat/test-introJS.R b/tests/testthat/test-introJS.R
index c85b5bff4..e03a27ffa 100644
--- a/tests/testthat/test-introJS.R
+++ b/tests/testthat/test-introJS.R
@@ -24,11 +24,6 @@ test_that("The introJS module works as expected for admins", {
     )
   }
   
-  app_src_loc <- test_path("test-apps", "source", "tidyr")
-  if (!dir.exists(app_src_loc)) {
-    untar(app_tar_loc, exdir = dirname(app_src_loc))
-  }
-  
   getBoundingClientRect <- function(appDriver, el) {
     appDriver$get_js(glue::glue('const rect = $("{el}")[0].getBoundingClientRect(); [rect.left, rect.top, rect.bottom, rect.right]')) %>% purrr::possibly(purrr::set_names, otherwise = .)(c("left", "top", "bottom", "right"))
   }