Nested observe statement in plot_module

[wish1832]

in R/plot_module.R, the following code was discovered:

## 3.9. Hide title settings menu for blended plots ####
                   # Stopgap solution; custom titles may be supported in the 
                   # future.
                   if (plot_type == "feature"){
                     observe({
                       observe({
                         target_id <- "title_settings"

                         if (isTruthy(plot_selections$blend())){
                           hideElement(
                             id = target_id
                           )
                         } else {
                           showElement(
                             id = target_id
                           )
                         }
                       })
                     })
                   }

There is no need for a nested observe statement, and this could cause bugs. The second observe statement should be removed.

[wish1832]

The nested observe statement no longer exists on the latest version in main.