Referential Footnotes: Columns

[waddella]

No description provided.

[gmbecker]

@anajens Column referential footnotes are now supported (currently just in gabe_tabletree_work) as we were discussing in #219

[anajens]

Thanks for the update @gmbecker ! I tested a few cases and it's working well but I'm having some trouble adding footnotes via paths for layouts with add_overall_col. Any suggestions for what I'm doing wrong?

> race_levels <- c("WHITE",
+                  "BLACK OR AFRICAN AMERICAN",
+                  "ASIAN",
+                  "AMERICAN INDIAN OR ALASKA NATIVE",
+                  "MULTIPLE")
> 
> l1 <- basic_table() %>% 
+   split_cols_by("ARM") %>%
+   add_overall_col("ALL") %>%
+   add_colcounts() %>%
+   split_rows_by("RACE", split_fun = keep_split_levels(race_levels)) %>%
+   summarize_row_groups() %>%
+   analyze("AGE", mean)
> 
> tb1 <- build_table(l1, DM)
> tb1
                                      A: Drug X          B: Placebo       C: Combination          ALL       
                                       (N=121)            (N=106)            (N=129)            (N=356)     
------------------------------------------------------------------------------------------------------------
WHITE                                 14 (11.6%)         14 (13.2%)          18 (14%)          46 (12.9%)   
  mean                             39.3571428571429   36.9285714285714   35.1111111111111   36.9565217391304
BLACK OR AFRICAN AMERICAN             28 (23.1%)         24 (22.6%)         27 (20.9%)         79 (22.2%)   
  mean                             34.6785714285714   31.7083333333333          34          33.5443037974684
ASIAN                                 79 (65.3%)         68 (64.2%)         84 (65.1%)        231 (64.9%)   
  mean                             34.2025316455696   32.6764705882353   34.6309523809524   33.9090909090909
AMERICAN INDIAN OR ALASKA NATIVE        0 (0%)             0 (0%)             0 (0%)             0 (0%)     
  mean                                    NA                 NA                 NA                 NA       
MULTIPLE                                0 (0%)             0 (0%)             0 (0%)             0 (0%)     
  mean                                    NA                 NA                 NA                 NA       
> 
> col_paths_summary(tb1)
label             path               
-------------------------------------
A: Drug X         ARM, A: Drug X     
B: Placebo        ARM, B: Placebo    
C: Combination    ARM, C: Combination
ALL               ALL, ALL           
> 
> # Both these colpaths works
> value_at(tb1, rowpath = c("RACE", "WHITE", "@content", "WHITE"), colpath = c("ALL", "ALL"))
[1] 46.0000000  0.1292135
> value_at(tb1, rowpath = c("RACE", "WHITE", "@content", "WHITE"), colpath = c("ALL"))
[1] 46.0000000  0.1292135
> 
> # None of these colpaths work with adding a footnote
> fnotes_at_path(tb1, rowpath = NULL, colpath =  c("ALL", "ALL")) <-  c("test col footer - ALL")
Error in col_fnotes_at_path(coltree(ttrp), colpath, fnotes = value) : 
  Path appears invalid at step: ALL
> fnotes_at_path(tb1, rowpath = NULL, colpath =  c("ALL")) <-  c("test col footer - ALL")
Error in col_fnotes_at_path(coltree(ttrp), colpath, fnotes = value) : 
  Path appears invalid at step: ALL