report card handled by teal

Author: gogonzo

R/module_nested_tabs.R

@@ -207,7 +207,11 @@ ui_teal_module.teal_module <- function(id, modules, depth = 0L) {
         )
       } else {
         ui_teal
-      }
+      },
+      div( # todo: fix the position to the top right of the tab content?
+        uiOutput(ns("reporter_add_container"))
+        # uiOutput(ns("show_rcode_container")) # todo: same mechanism as for the reporter
+      )
     )
   )
 }
@@ -410,6 +414,27 @@ srv_teal_module.teal_module <- function(id,
       }
     })
 
+    reporter_card_out <- reactive({
+      card <- if (is.list(module_out())) {
+        unlist(
+          Filter(
+            function(x) is.reactive(x) && inherits(x(), "ReportCard"),
+            module_out()
+          ),
+          recursive = FALSE
+        )
+      } else if (is.reactive(module_out()) && inherits(module_out()(), "ReportCard")) {
+        module_out()
+      }
+    })
+
+    output$reporter_add_container <- renderUI({
+      req(reporter_card_out())
+      teal.reporter::add_card_button_ui(session$ns("reporter_add"))
+    })
+
+    teal.reporter::add_card_button_srv("reporter_add", reporter = reporter, card_fun = reporter_card_out)
+
     module_out
   })
 }