Hook check for errors

- Fix js injection breaking when there is an error
ElianHugh · Jun 7, 2024 · 4d7dc43 · 4d7dc43
1 parent 4d35ef8
commit 4d7dc43
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/middleware.R b/R/middleware.R
@@ -26,6 +26,9 @@ middleware <- function(engine) {
 
 postserialise_hotwater <- function(js) {
  function(value) {
+ if (length(value$error) > 0L) {
+ return(value)
+ }
  if (grepl("text/html", value$headers[["Content-Type"]])) {
  value$headers[["Cache-Control"]] <- "no-cache"
  value$body <- c(value$body, js) |>