Simple - Load Reporter - Inbuild

NAMESPACE

@@ -8,6 +8,8 @@ export(add_card_button_ui)
 export(as_yaml_auto)
 export(download_report_button_srv)
 export(download_report_button_ui)
+export(report_load_srv)
+export(report_load_ui)
 export(reporter_previewer_srv)
 export(reporter_previewer_ui)
 export(reset_report_button_srv)

NEWS.md

@@ -3,6 +3,7 @@
 ### Enhancements
 
 * Report cards are now included in bookmarks. When using the `shiny` bookmarking mechanism, present report cards will be available in the restored application.
+* Report can be loaded back now. The zip file with the report can be loaded back which will restore Previewer state.
 
 # teal.reporter 0.3.1
 

R/DownloadModule.R

@@ -137,7 +137,12 @@ download_report_button_srv <- function(id,
 
     output$download_data <- shiny::downloadHandler(
       filename = function() {
-        paste("report_", format(Sys.time(), "%y%m%d%H%M%S"), ".zip", sep = "")
+        paste0(
+          "report_",
+          if (reporter$get_id() == "") NULL else paste0(reporter$get_id(), "_"),
+          format(Sys.time(), "%y%m%d%H%M%S"),
+          ".zip"
+        )
       },
       content = function(file) {
         shiny::showNotification("Rendering and Downloading the document.")
@@ -189,13 +194,15 @@ report_render_and_compress <- function(reporter, input_list, global_knitr, file
   tryCatch(
     renderer$render(reporter$get_blocks(), yaml_header, global_knitr),
     warning = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Render document warning!",
         action = "Please contact app developer",
         type = "warning"
       )
     },
     error = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Render document error!",
         action = "Please contact app developer",
@@ -204,17 +211,41 @@ report_render_and_compress <- function(reporter, input_list, global_knitr, file
     }
   )
 
+  output_dir <- renderer$get_output_dir()
+
+  tryCatch(
+    archiver_dir <- reporter$to_jsondir(output_dir),
+    warning = function(cond) {
+      print(cond)
+      shiny::showNotification(
+        ui = "Archive document warning!",
+        action = "Please contact app developer",
+        type = "warning"
+      )
+    },
+    error = function(cond) {
+      print(cond)
+      shiny::showNotification(
+        ui = "Archive document error!",
+        action = "Please contact app developer",
+        type = "error"
+      )
+    }
+  )
+
   temp_zip_file <- tempfile(fileext = ".zip")
   tryCatch(
-    expr = zip::zipr(temp_zip_file, renderer$get_output_dir()),
+    expr = zip::zipr(temp_zip_file, output_dir),
     warning = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Zipping folder warning!",
         action = "Please contact app developer",
         type = "warning"
       )
     },
     error = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Zipping folder error!",
         action = "Please contact app developer",
@@ -226,13 +257,15 @@ report_render_and_compress <- function(reporter, input_list, global_knitr, file
   tryCatch(
     expr = file.copy(temp_zip_file, file),
     warning = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Copying file warning!",
         action = "Please contact app developer",
         type = "warning"
       )
     },
     error = function(cond) {
+      print(cond)
       shiny::showNotification(
         ui = "Copying file error!",
         action = "Please contact app developer",