feat: pw_install

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pw
 Title: Test your 'golem' Apps with 'Playwright'
-Version: 0.0.0.9009
+Version: 0.0.0.9010
 Authors@R:
     person("Colin", "Fay", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7343-1846"))

NAMESPACE

@@ -3,6 +3,7 @@
 export(npx_is_available)
 export(pw_codegen)
 export(pw_init)
+export(pw_install)
 export(pw_show_report)
 export(pw_test)
 export(stop_if_npx_not_available)

NEWS.md

@@ -1,13 +1,15 @@
 # pw (development version)
 
-* `with_test_id()` adds a `data-testid` attribute to a shiny tag. This is useful for testing with `getByTestId` in Playwright.
+- `pw_install()` run both `npm install` & `npx playwright install` in the test directory. This is mainly to be used when a package has been inited somewhere else.
 
-* `pw_show_report()` can be called to open the test report
+- `with_test_id()` adds a `data-testid` attribute to a shiny tag. This is useful for testing with `getByTestId` in Playwright.
 
-* `pw_codegen()` can be called to launch the code generator
+- `pw_show_report()` can be called to open the test report
 
-* `pw_test()` stops if the playwright skeleton is missing
+- `pw_codegen()` can be called to launch the code generator
 
-* Functions to test if npx is in the PATH
+- `pw_test()` stops if the playwright skeleton is missing
 
-* Initial version with `pw_init()` & `pw_test()`
+- Functions to test if npx is in the PATH
+
+- Initial version with `pw_init()` & `pw_test()`

R/pw_install.R

@@ -0,0 +1,50 @@
+#' Install playwright in an already inited project
+#'
+#' This function runs playwright init in a project
+#' that has been previously initiated with `{pw}`
+#'
+#' @inheritParams pw_init
+#'
+#' @export
+
+pw_install <- function(
+  where = golem::get_golem_wd()
+) {
+  stop_if_npx_not_available()
+  playwright_test_folder <- file.path(
+    where,
+    "tests",
+    "playwright"
+  )
+  if (
+    Negate(dir.exists)(
+      playwright_test_folder
+    )
+  ) {
+    stop(
+      "The playwright test folder doesn't exist, please run pw_init() first."
+    )
+  }
+  withr::with_dir(
+    playwright_test_folder,
+    {
+      system2(
+        "npm",
+        c(
+          "install"
+        )
+      )
+      system2(
+        "npx",
+        c(
+          "playwright",
+          "install"
+        )
+      )
+    }
+  )
+}
+
+list("foo", {
+  "bar"
+})