Adds srv_decorate_teal_data and ui_decorate_teal_data wrappers

[averissimo]

This reduces the code in the modules and avoids some of the strange req() of the original object

Makes it easier for modules developers to use our API.

-    decorated_output_q_no_print <- srv_transform_teal_data("decorate", data = output_q, transformators = decorators)
-    decorated_output_q <- reactive(within(decorated_output_q_no_print(), expr = print(plot)))
+   decorated_output_q <- srv_decorate_teal_data("decorate", data = output_q, transformators = decorators, expr = print(plot))
    plot_r <- reactive({
-      req(output_q())
+      req(decorated_output_q())
      decorated_output_q()
    })

[m7pr]

nice

[averissimo]

After stand-up, let's try this approach inside modules in {tmc} for now