fix: using htmltools instead

ColinFay · ColinFay · commit 7cf111a8556a · 2025-01-22T15:06:34.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: pw
 Title: Test your 'golem' Apps with 'Playwright'
-Version: 0.0.0.9008
+Version: 0.0.0.9009
 Authors@R:
     person("Colin", "Fay", , "contact@colinfay.me", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7343-1846"))
@@ -12,9 +12,9 @@ Imports:
     fs,
     golem,
     here,
+    htmltools,
     pkgload,
     processx,
-    rlang,
     uuid,
     withr
 Encoding: UTF-8
diff --git a/R/with_test_id.R b/R/with_test_id.R
@@ -6,7 +6,7 @@
 #' @return A shiny tag with the data-testid attribute added
 #' @export
 with_test_id <- function(tag, test_id){
-  shiny::tagAppendAttributes(
+  htmltools::tagAppendAttributes(
     tag,
     `data-testid` = test_id
   )
diff --git a/tests/testthat/test-with_test_id.R b/tests/testthat/test-with_test_id.R
@@ -1,5 +1,5 @@
 test_that("with_test_id works", {
-  tag <- shiny::div()
+  tag <- htmltools::div()
   test_id <- "test-id"
   tag_with_test_id <- with_test_id(tag, test_id)
   expect_equal(

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@`
`6`	`6`	`#' @return A shiny tag with the data-testid attribute added`
`7`	`7`	`#' @export`
`8`	`8`	`with_test_id <- function(tag, test_id){`
`9`		`- shiny::tagAppendAttributes(`
	`9`	`+ htmltools::tagAppendAttributes(`
`10`	`10`	`tag,`
`11`	`11`	`data-testid` = test_id
`12`	`12`	`)`