Repair introJS

pharmaR · Apr 11, 2024 · 566a918 · 566a918
1 parent 7cf5f33
commit 566a918
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git 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
@@ -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"))
   }