[Bug]: Unable to render gridified rtables with teal.widgets::table_with_settings_srv

[NadiaAbraham]

What happened?

I am trying to use gridify to add watermark to rtables rendered with teal.widgets::table_with_settings_srv similar to the approach used in teal.modules.clinical package. However, it's not working. Appreciate any help on this. Thanks in advance.
Sample app:

library(shiny)
library(gridify)
library(teal.widgets)
app1 <- shinyApp(
  ui = fluidPage(
    table_with_settings_ui(
      id = "table_with_settings1"
    ),
    table_with_settings_ui(
      id = "table_with_settings2"
    )
  ),
  server = function(input, output, session) { 
    table_r1 <- reactive({
      l <- basic_table() %>%
        split_cols_by("Species") %>%
        analyze(c("Sepal.Length", "Sepal.Width"))  
      tbl <- build_table(l, iris)     
      tbl
    })   
    table_with_settings_srv(id = "table_with_settings1", 
                            table_r = table_r1)
    table_r2 <- reactive({
      gridify_layout <- gridify::gridifyLayout(
        nrow = 3L,
        ncol = 1L,
        heights = grid::unit(c(0.05, 0.9, 0.05), "npc"),
        widths = grid::unit(1, "npc"),
        margin = grid::unit(c(t = 0.1, r = 0.1, b = 0.1, l = 0.1), units = "cm"),
        global_gpar = grid::gpar(),
        background = grid::get.gpar()$fill,
        adjust_height = FALSE,
        object = gridifyObject(row = 2, col = 1),
        cells = gridifyCells(
          title = gridifyCell(row = 1, col = 1),
          footer = gridifyCell(row = 3, col = 1),
          watermark = gridifyCell(row = 1:3, col = 1, rot = 45, gpar = grid::gpar(fontsize = 90, alpha = 0.3))
        )
      )      
      l <- basic_table() %>%
        split_cols_by("Species") %>%
        analyze(c("Sepal.Length", "Sepal.Width"))
      tbl <- build_table(l, iris)
      tbl_gridified <- gridify::gridify(
        object = rtables.officer::tt_to_flextable(tbl, theme = NULL),
        layout = gridify_layout
      ) %>%
        set_cell("watermark", "DRAFT")
      tbl_gridified
    })
    table_with_settings_srv(id = "table_with_settings2", 
                            table_r = table_r2)
     
  }
)

if (interactive()) {
  runApp(app1)
}

sessionInfo()

Relevant log output

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.

[llrs-roche]

Hi Thanks for opening an issue, By not working do you mean you get a warning and an error:

Warning in validityMethod(object) :
  Overlapping cells detected at positions: 1-1, 3-1
Warning: Error in rtables::as_html: is(x, "VTableTree") is not TRUE

Could you share your sessionInfo? If what you got is different it could be related to the versions we are using.

[NadiaAbraham]

Hi @llrs-roche

Thanks a lot for your reply. I confirm that I m getting the same warning and error as above. Sharing my sessioninfo:

> sessionInfo()
R version 4.4.1 (2024-06-14)
Platform: x86_64-pc-linux-gnu
Running under: Red Hat Enterprise Linux 8.10 (Ootpa)

Matrix products: default
BLAS/LAPACK: /usr/lib64/libopenblasp-r0.3.15.so;  LAPACK version 3.9.0

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

time zone: America/New_York
tzcode source: system (glibc)

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

other attached packages:
[1] teal.widgets_0.5.0 gridify_0.7.5      shiny_1.11.1      
[4] uteals_0.0.1.9000 

loaded via a namespace (and not attached):
  [1] Rdpack_2.6              bsicons_0.1.2          
  [3] formatR_1.14            remotes_2.5.0          
  [5] logger_0.4.1            readxl_1.4.3           
  [7] rlang_1.1.6             magrittr_2.0.3         
  [9] teal.code_0.7.0         compiler_4.4.1         
 [11] systemfonts_1.1.0       png_0.1-8              
 [13] vctrs_0.6.5             formatters_0.5.11      
 [15] stringr_1.5.1           profvis_0.3.8          
 [17] pkgconfig_2.0.3         crayon_1.5.2           
 [19] fastmap_1.2.0           backports_1.5.0        
 [21] ellipsis_0.3.2          fontawesome_0.5.3      
 [23] promises_1.3.3          rmarkdown_2.29         
 [25] sessioninfo_1.2.2       ragg_1.3.2             
 [27] purrr_1.1.0             xfun_0.52              
 [29] cachem_1.1.0            teal.slice_0.7.0       
 [31] teal.data_0.8.0         teal.reporter_0.6.0    
 [33] jsonlite_2.0.0          later_1.4.2            
 [35] uuid_1.2-1              broom_1.0.6            
 [37] junco_0.1.1             R6_2.6.1               
 [39] bslib_0.9.0             stringi_1.8.7          
 [41] RColorBrewer_1.1-3      pkgload_1.4.1          
 [43] jquerylib_0.1.4         cellranger_1.1.0       
 [45] Rcpp_1.1.0              rtables_0.6.13         
 [47] assertthat_0.2.1        knitr_1.50             
 [49] usethis_2.2.3           teal.logger_0.4.0      
 [51] httpuv_1.6.16           teal_1.1.0             
 [53] Matrix_1.7-1            splines_4.4.1          
 [55] tidyselect_1.2.1        rstudioapi_0.16.0      
 [57] dichromat_2.0-0.1       yaml_2.3.10            
 [59] rtables.officer_0.1.1   miniUI_0.1.1.1         
 [61] rlistings_0.2.12        pkgbuild_1.4.4         
 [63] lattice_0.22-6          tibble_3.3.0           
 [65] S7_0.2.1                askpass_1.2.1          
 [67] flextable_0.9.10        evaluate_1.0.4         
 [69] tidytlg_0.1.5           gridGraphics_0.5-1     
 [71] desc_1.4.3              survival_3.8-3         
 [73] urlchecker_1.0.1        huxtable_5.5.6         
 [75] xml2_1.3.6              zip_2.3.1              
 [77] pillar_1.11.0           rsconnect_1.3.1        
 [79] checkmate_2.3.1         shinyjs_2.1.0          
 [81] generics_0.1.4          rprojroot_2.1.0        
 [83] ggplot2_4.0.1           scales_1.4.0           
 [85] xtable_1.8-4            glue_1.8.0             
 [87] gdtools_0.4.3           nestcolor_0.1.3        
 [89] tools_4.4.1             data.table_1.15.4      
 [91] openxlsx_4.2.5.2        forcats_1.0.0          
 [93] fs_1.6.6                cowplot_1.1.3          
 [95] grid_4.4.1              tidyr_1.3.1            
 [97] rbibutils_2.2.16        shinyBS_0.61.1         
 [99] devtools_2.4.5          patchwork_1.2.0        
[101] cli_3.6.5               rappdirs_0.3.3         
[103] textshaping_0.4.0       officer_0.7.0          
[105] tern_0.9.9              fontBitstreamVera_0.1.1
[107] dplyr_1.1.4             gtable_0.3.6           
[109] yulab.utils_0.2.1       fontquiver_0.2.1       
[111] sass_0.4.10             digest_0.6.37          
[113] ggplotify_0.1.3         htmlwidgets_1.6.4      
[115] farver_2.1.2            memoise_2.0.1          
[117] htmltools_0.5.8.1       lifecycle_1.0.4        
[119] shinyWidgets_0.9.0      mime_0.13              
[121] openssl_2.3.3           fontLiberation_0.1.0 

[NadiaAbraham]

Hi @llrs-roche .

Hope you are doing great.
Just wanted to check on this issue. I have also raised this with gridify team: pharmaverse/gridify#8

Please check this link to know more details on this issue.

[llrs-roche]

I haven't had more time to look into this, but it looks like the class that gridify returns is currently not supported by teal. As reported by the warning it expects an object of class VTableTree which is not.
@donyunardi Letting you know of this issue to know if an when to work on it.