ID:318005 [dv.papo] Setting analysis_indicator to NULL causing loss of plot legend (#43)

* Force legend visibility

* Bumped minor version number on both DESCRIPTION and NEWS.md

* RoxygenNote set to 7.3.2

Author: luffmark

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dv.papo
 Title: Patient Profile
-Version: 2.1.1-9000
+Version: 2.1.1-9001
 Authors@R: 
     c(person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
       person(given = "Korbinian",

NEWS.md

@@ -1,3 +1,7 @@
+# dv.papo 2.1.1-9001
+
+- Fixed issue where setting analysis_indicator to NULL caused loss of plot legend.
+
 # dv.papo 2.1.1-9000
 
 - Fixed issue with plot displays when POSIXt date-time variables used for the timeline limits.

R/mod_plots.R

@@ -424,6 +424,10 @@ patient_plot_server <- function(id, subject_var,
             heights = heights / sum(heights)
           )
 
+          # Force legend visibility after subplot construction, since by default
+          # if any plot does not have a legend then combined plot loses legend.
+          plots$x$layout$showlegend <- TRUE
+
           x_limits_z <- x_limits - sl_info[["trt_start_date"]]
           plots <- silence_warning(
             plotly::layout(plots, height = sum(heights), xaxis = list(range = x_limits_z)),