fix plot profile

pfizer-opensource · Sep 24, 2024 · 7db79cb · 7db79cb
1 parent 416980a
commit 7db79cb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/mod_goutput.R b/R/mod_goutput.R
@@ -543,7 +543,7 @@ mod_goutput_server <- function(id, sourcedata, repName, filters, process_btn) {
       req(length(plotly::event_data("plotly_click", source = "plot_output")) > 0)
       runjs("Shiny.setInputValue('plotly_click-plot_output', null);")
     }) %>%
-      bindEvent(list(repName(), rv$goutput$drill_plt$data, rv$goutput$plot$data))
+      bindEvent(list(repName(), rv$goutput$x$data, rv$goutput$plot$data))
 
     observe({
       if (is.null(plotly::event_data("plotly_click", source = "plot_output"))) {
@@ -596,7 +596,7 @@ mod_goutput_server <- function(id, sourcedata, repName, filters, process_btn) {
       "plot_profile_1",
       sourcedata = reactive(sourcedata()),
       sel_rows = reactive(input$plot_listing_rows_selected),
-      datain = reactive(filters()$ae_pre$dout),
+      datain = reactive(filters()$ae_pre),
       plot_data = plot_data
     )
 

diff --git a/R/mod_plot_profile.R b/R/mod_plot_profile.R
@@ -105,7 +105,7 @@ mod_plot_profile_server <- function(id, sourcedata, sel_rows, datain, plot_data)
     observe({
       req(sel_rows())
       req(datain())
-      datain <- list(AE = datain())
+      datain <- list(AE = datain()$data)
       dom_names <- names(rv$sourcedata)
       if (any(c("cm", "adcm") %in% dom_names)) {
         datain[["CM"]] <- rv$sourcedata[[dom_names[endsWith(dom_names, "cm")][1]]]