feat: with pw_codegen()

Author: ColinFay

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pw
 Title: Test your 'golem' Apps with 'Playwright'
-Version: 0.0.0.9005
+Version: 0.0.0.9006
 Authors@R:
     person("Colin", "Fay", , "contact@colinfay.me", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7343-1846"))
@@ -12,6 +12,7 @@ Imports:
     fs,
     golem,
     here,
+    pkgload,
     withr
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(npx_is_available)
+export(pw_codegen)
 export(pw_init)
 export(pw_test)
 export(stop_if_npx_not_available)

NEWS.md

@@ -1,5 +1,7 @@
 # pw (development version)
 
+* `pw_codegen()` can be called to launch the code generator
+
 * `pw_test()` stops if the playwright skeleton is missing
 
 * Functions to test if npx is in the PATH

R/pw-codegen.R

@@ -1,6 +1,76 @@
+#' Run the code generator
+#'
+#' This function runs the Playwright code generator.
+#'
+#' @param where The root directory of your golem project
+#' @param R_path The path to the R executable
+#' @param ... args passed to npx playwright codegen
+#'
+#' @importFrom withr with_dir
+#'
+#' @export
 pw_codegen <- function(
-  where = golem::get_golem_wd()
+  where = golem::get_golem_wd(),
+  R_path = NULL,
+  ...
 ) {
+  stop_if_npx_not_available()
+  # This is from golem::expect_running() but that's
+  # my own code so that's fine
+  if (Sys.getenv("CALLR_CHILD_R_LIBS_USER") == "") {
+    pkg_name <- pkgload::pkg_name()
+    go_for_pkgload <- TRUE
+  } else {
+    pkg_name <- Sys.getenv("TESTTHAT_PKG")
+    go_for_pkgload <- FALSE
+  }
+  if (is.null(R_path)) {
+    if (tolower(.Platform$OS.type) == "windows") {
+      r_ <- normalizePath(file.path(
+        Sys.getenv("R_HOME"),
+        "bin",
+        "R.exe"
+      ))
+    } else {
+      r_ <- normalizePath(file.path(
+        Sys.getenv("R_HOME"),
+        "bin",
+        "R"
+      ))
+    }
+  } else {
+    r_ <- R_path
+  }
+  if (go_for_pkgload) {
+    shinyproc <- processx::process$new(
+      command = r_,
+      c(
+        "-e",
+        "options(shiny.port = 3000);pkgload::load_all(here::here());run_app()"
+      )
+    )
+  } else {
+    shinyproc <- processx::process$new(
+      echo_cmd = TRUE,
+      command = r_,
+      c(
+        "-e",
+        sprintf(
+          "options(shiny.port = 3000); library(%s, lib = '%s');run_app()",
+          pkg_name,
+          .libPaths()
+        )
+      ),
+      stdout = "|",
+      stderr = "|"
+    )
+  }
+
+  if (!shinyproc$is_alive()) {
+    cli::cli_alert_danger("Failed to start the app, please check the logs")
+    cat(shinyproc$read_error())
+    stop()
+  }
   with_dir(
     where,
     {
@@ -10,11 +80,31 @@ pw_codegen <- function(
           with_dir(
             "playwright",
             {
+              output_file <- file.path(
+                "tests",
+                sprintf(
+                  "%s.test.ts",
+                  uuid::UUIDgenerate()
+                )
+              )
+              fs::file_create(output_file)
+              output_file <- fs::path_abs(output_file)
+              on.exit({
+                cat(
+                  "Code generation done, the file is available at:",
+                  output_file,
+                  "\n"
+                )
+              })
               system2(
                 "npx",
                 c(
                   "playwright",
-                  "codegen"
+                  "codegen",
+                  "http://localhost:3000",
+                  "--output",
+                  output_file,
+                  ...
                 )
               )
             }

README.md

@@ -65,7 +65,6 @@ npx playwright test
 
 ## Roadmap
 
-- [ ] Add support for the Playwright codegen toolkit.
 - [ ] Enable viewing of test reports directly.
 
 **Note:** The full Playwright Node.js API will not be wrapped in R. For advanced use cases, you may need to run commands directly from the terminal.