added error status

R/capture.R

@@ -12,7 +12,8 @@
 #' @param options Options (as a list) passed to [html-to-image](https://github.com/bubkoo/html-to-image#options)
 #'  method, for example you can use `backgroundColor` to set background color.
 #' @param loading Add a loading indicator if taking screenshot take time, see [loading()] for usage.
-#' @param statusInputId Retrieve status information in an `input` value server-side.
+#' @param statusInputId Retrieve status information in an `input` value server-side with
+#'  following structure: `list(status = "started|finished|error", timestamp = <POSIX timestamp>)`.
 #' @param button_class Class to use for the HTML tag `<button>`
 #'
 #' @note It's only possible to take screenshot of elements that are actually visible on screen. It doesn't work in Internet Explorer.

examples/status.R

@@ -65,6 +65,7 @@ server <- function(input, output, session) {
   })
 
   observeEvent(input$loading, {
+    print(input$loading)
     if (identical(input$loading$status, "started")) {
       showNotification(ui = "Capturing screenshot, please wait...")
     }

srcjs/exts/image.js

@@ -80,6 +80,10 @@ import { Loading } from "notiflix/build/notiflix-loading-aio";
         }
       })
       .catch(function(error) {
+        Loading.remove();
+        if (statusId !== null) {
+          Shiny.setInputValue(statusId, {status: "error", timestamp: Date.now()});
+        }
         console.error("Capture: oops, something went wrong!", error);
       });
   }

srcjs/exts/pdf.js

@@ -80,6 +80,10 @@ import * as utils from "../modules/utils";
         }
       })
       .catch(function(error) {
+        Loading.remove();
+        if (statusId !== null) {
+          Shiny.setInputValue(statusId, {status: "error", timestamp: Date.now()});
+        }
         console.error("Capture: oops, something went wrong!", error);
       });
   }