refactor: throw error if plotly.js bundle extraction fails

Author: salim-b

tools/update_plotlyjs.R

@@ -66,8 +66,12 @@ withr::with_dir(tmpdir, {
       Schema <- jsonlite::fromJSON("dist/plot-schema.json")
       bundleTraceMap <-
         paste0(readLines("tasks/util/constants.js"), collapse = "\n") |>
-        stringr::str_extract(pattern = "(?<=\\b(const|var) partialBundleTraces = )\\{[^}]+\\}") |>
-        yaml::read_yaml(text = _)
+        stringr::str_extract(pattern = "(?<=\\b(const|var) partialBundleTraces = )\\{[^}]+\\}")
+      
+      if (is.na(bundleTraceMap)) {
+        stop("No `partialBundleTraces` variable definition found in Plotly source file `tasks/util/constants.js`. Does the regex pattern need an update?")
+      }
+      bundleTraceMap <- yaml::read_yaml(text = bundleTraceMap)
 
       withr::with_dir(
         pkg_dir, usethis::use_data(