[Feature Request]: Watermarking

[npaszty]

Feature description

would be great to have a standard solution across all teal modules to allow user to provide watermark text to overlay on table and visualization output while also using the plot_with_settings functions. see issue #263

I suspect this is substandard compared to the core dev work but this is a simple function we use for applying watermark to visualization outputs.

# watermark
h2oMark <- function(plot2wm, 
                    text_value = "Not for GxP Use",
                    text_size = c(20),
                    text_opacity = c(0.75),
                    text_color = "grey",
                    text_rotation = c(45),
                    text_xmin = -Inf,
                    text_xmax = Inf,
                    text_ymin = -Inf,
                    text_ymax = Inf) {
  
  # add text watermark
  watermark <- textGrob(text_value, 
                        gp = gpar(fontsize = text_size, alpha = 0.75, col = "grey"),
                        rot = 45)
  
  # add the watermark to the plot
  plot2wm + annotation_custom(grob = watermark, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf)
  
}

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.

[pawelru]

I think that we are in progress of developing such general feature and enable it for all the modules. We call it a "decoration module" that would allow you (app developer) to take an output (e.g. plot) from the module, run some user provided "code" that returns the same type of object (e.g. continue to return plot). Exactly as you did in your snippet.
The most updated state is available here and you can track the progress of implementation here. I don't expect you to go very much into the details but just FYI that it's ongoing.

CC @kumamiao @donyunardi - yet another good use case for that feature