[Bug]: Plot With Settings

[npaszty]

What happened?

We would like to add watermarks to our app outputs for both tables and visualizations. most of our outputs are able to display the watermark with the use of plot_with_settings except for the forest plot.

When using forestplot() in conjunction with plot_with_settings we seem to only be able to display the watermark itself or just the plot itself but not both.

When removing the plot_with_settings functions we are able to get the forest plot to display with both.

Seems like ggplot & grobs work well with plot_with_settings functions but forestplot and grid does not.

sessionInfo()

> sessionInfo()
R version 4.2.2 Patched (2022-11-10 r83330)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 20.04.6 LTS

Matrix products: default
BLAS:   /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/liblapack.so.3

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=en_US.UTF-8    LC_PAPER=en_US.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] Hmisc_5.1-1          tern_0.9.2           rtables_0.6.5        formatters_0.5.4     teal_0.14.0          teal.transform_0.4.0 magrittr_2.0.3      
 [8] teal.slice_0.4.0     teal.data_0.3.0      shiny_1.7.5.1        lubridate_1.9.3      forestplot_3.1.3     abind_1.4-5          checkmate_2.3.0     
[15] dplyr_1.1.3         

loaded via a namespace (and not attached):
 [1] nlme_3.1-163                 jose_1.2.0                   teal.logger_0.1.3            httr_1.4.7                   tools_4.2.2                 
 [6] backports_1.4.1              utf8_1.2.4                   R6_2.5.1                     rpart_4.1.21                 lazyeval_0.2.2              
[11] colorspace_2.1-0             nnet_7.3-19                  tidyselect_1.2.0             gridExtra_2.3                emmeans_1.8.9               
[16] curl_5.1.0                   compiler_4.2.2               cli_3.6.1                    shinyTree_0.3.1              htmlTable_2.4.2             
[21] shinyjs_2.1.0                plotly_4.10.3                scales_1.2.1                 mvtnorm_1.2-3                askpass_1.2.0               
[26] stringr_1.5.0                digest_0.6.33                foreign_0.8-85               rmarkdown_2.25               base64enc_0.1-3             
[31] pkgconfig_2.0.3              htmltools_0.5.6.1            teal.widgets_0.4.1           fastmap_1.1.1                htmlwidgets_1.6.2           
[36] rlang_1.1.1                  rstudioapi_0.15.0            generics_0.1.3               jsonlite_1.8.7               RocheLogin_1.1.0            
[41] Formula_1.2-5                Matrix_1.6-1.1               Rcpp_1.0.11                  munsell_0.5.0                fansi_1.0.5                 
[46] geepack_1.3.9                logger_0.2.2                 lifecycle_1.0.3              stringi_1.7.12               yaml_2.3.7                  
[51] MASS_7.3-60                  tern.gee_0.1.0.9002          promises_1.2.1               ggrepel_0.9.4                lattice_0.22-5              
[56] splines_4.2.2                knitr_1.44                   pillar_1.9.0                 estimability_1.4.1           glue_1.6.2                  
[61] evaluate_0.22                data.table_1.14.8            renv_1.0.3                   vctrs_0.6.4                  httpuv_1.6.12               
[66] Rdpack_2.5                   gtable_0.3.4                 openssl_2.1.1                purrr_1.0.2                  tidyr_1.3.0                 
[71] assertthat_0.2.1             ggplot2_3.4.4                xfun_0.40                    mime_0.12                    rbibutils_2.2.16            
[76] xtable_1.8-4                 broom_1.0.5                  later_1.3.1                  survival_3.5-7               viridisLite_0.4.2           
[81] ggmosaic_0.3.3               tibble_3.2.1                 teal.modules.clinical_0.8.16 teal.modules.general_0.2.16  cluster_2.1.4               
[86] timechange_0.2.0             ellipsis_0.3.2

Relevant log output

no errors occur when using plot_with_settings functions, we just don't get the output with both the forest plot and the watermark.

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.