index: Always show legend, even when there is only one trace.

Author: rekado

scripts/report_scripts/index.Rmd

@@ -96,10 +96,12 @@ tagList(lapply(locations,
                                 mode = 'line',
                                 stackgroup = 'one',
                                 showlegend = TRUE,
+                                name = ~variable,
                                 x = ~dates,
                                 y = ~value,
                                 color = ~variable) %>%
                        layout (title = location,
+                               showlegend = TRUE,
                                yaxis = list(title = "Frequency"))
                }))
 ```