Merge branch 'teal_data_report' into teal_reportable

Author: gogonzo

R/tm_a_pca.R

@@ -1158,5 +1158,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_output_q
   })
 }

R/tm_a_regression.R

@@ -982,7 +982,7 @@ srv_a_regression <- function(id,
 
     output_q <- reactive({
       teal::validate_inputs(iv_r())
-      switch(input$plot_type,
+      obj <- switch(input$plot_type,
         "Response vs Regressor" = output_plot_0(),
         "Residuals vs Fitted" = output_plot_1(),
         "Normal Q-Q" = output_plot_2(),
@@ -991,6 +991,9 @@ srv_a_regression <- function(id,
         "Residuals vs Leverage" = output_plot_5(),
         "Cook's dist vs Leverage" = output_plot_6()
       )
+
+      teal.data::report(obj) <- c(teal.data::report(obj), "# Plot", obj[["plot"]])
+      obj
     })
 
     decorated_output_q <- srv_decorate_teal_data(
@@ -1001,11 +1004,11 @@ srv_a_regression <- function(id,
     )
 
     fitted <- reactive({
-      req(output_q())
+      req(decorated_output_q())
       decorated_output_q()[["fit"]]
     })
     plot_r <- reactive({
-      req(output_q())
+      req(decorated_output_q())
       decorated_output_q()[["plot"]]
     })
 
@@ -1055,5 +1058,7 @@ srv_a_regression <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_output_q
   })
 }

R/tm_g_association.R

@@ -576,6 +576,8 @@ srv_tm_g_association <- function(id,
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
+
+    decorated_output_grob_q
     ###
   })
 }

R/tm_g_bivariate.R

@@ -774,6 +774,8 @@ srv_g_bivariate <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_output_q_facets
   })
 }
 

R/tm_g_distribution.R

@@ -1417,5 +1417,12 @@ srv_distribution <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+    reactive(
+      if (input$tabs == "Histogram") {
+        decorated_output_dist_q()
+      } else if (input$tabs == "QQplot") {
+        decorated_output_qq_q()
+      }
+    )
   })
 }

R/tm_g_response.R

@@ -622,5 +622,7 @@ srv_g_response <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_output_plot_q
   })
 }

R/tm_g_scatterplot.R

@@ -1095,5 +1095,7 @@ srv_g_scatterplot <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_output_plot_q
   })
 }

R/tm_g_scatterplotmatrix.R

@@ -529,6 +529,7 @@ srv_g_scatterplotmatrix <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+    decorated_output_q
   })
 }