Snapshot of code has changed: ('test-tm_a_gee.R:13:3')
Snapshot of code has changed:
old[11:18] vs new[11:18]
    
    $table
    {
-       result_table <- tern.gee::as.rtable(model_fit, type = "cov")
+       table <- tern.gee::as.rtable(model_fit, type = "cov")
-       subtitles(result_table) <- NULL
+       subtitles(table) <- NULL
-       main_footer(result_table) <- NULL
+       main_footer(table) <- NULL
    }
    

* Run `testthat::snapshot_accept('tm_a_gee')` to accept the change.
* Run `testthat::snapshot_review('tm_a_gee')` to interactively review the change.

Snapshot of code has changed: ('test-tm_a_gee.R:28:3')
Snapshot of code has changed:
old[11:18] vs new[11:18]
    
    $table
    {
-       result_table <- tern.gee::as.rtable(data.frame(Coefficient = model_fit$coefficients))
+       table <- tern.gee::as.rtable(data.frame(Coefficient = model_fit$coefficients))
-       subtitles(result_table) <- NULL
+       subtitles(table) <- NULL
-       main_footer(result_table) <- NULL
+       main_footer(table) <- NULL
    }
    

* Run `testthat::snapshot_accept('tm_a_gee')` to accept the change.
* Run `testthat::snapshot_review('tm_a_gee')` to interactively review the change.

Snapshot of code has changed: ('test-tm_a_gee.R:44:3')
Snapshot of code has changed:
old[12:23] vs new[12:22]
    $table
    {
        lsmeans_fit_model <- tern.gee::lsmeans(model_fit, 0.95)
-       result_table <- rtables::basic_table(show_colcounts = TRUE) %>% 
+       table <- rtables::basic_table(show_colcounts = TRUE) %>% 
            rtables::split_cols_by(var = "ARM", ref_group = model_fit$ref_level) %>% 
            tern.gee::summarize_gee_logistic() %>% rtables::build_table(df = lsmeans_fit_model, 
            alt_counts_df = ANL_ADSL)
-       subtitles(result_table) <- NULL
-       main_footer(result_table) <- NULL
-       result_table
+       subtitles(table) <- NULL
+       main_footer(table) <- NULL
    }
    

* Run `testthat::snapshot_accept('tm_a_gee')` to accept the change.
* Run `testthat::snapshot_review('tm_a_gee')` to interactively review the change.

Snapshot of code has changed: ('test-tm_a_gee.R:60:3')
Snapshot of code has changed:
old[12:23] vs new[12:22]
    $table
    {
        lsmeans_fit_model <- tern.gee::lsmeans(model_fit, 0.95)
-       result_table <- rtables::basic_table(show_colcounts = TRUE) %>% 
+       table <- rtables::basic_table(show_colcounts = TRUE) %>% 
            rtables::split_cols_by(var = "ARM", ref_group = model_fit$ref_level) %>% 
            tern.gee::summarize_gee_logistic() %>% rtables::build_table(df = lsmeans_fit_model, 
            alt_counts_df = ANL_ADSL)
-       subtitles(result_table) <- NULL
-       main_footer(result_table) <- NULL
-       result_table
+       subtitles(table) <- NULL
+       main_footer(table) <- NULL
    }
    

* Run `testthat::snapshot_accept('tm_a_gee')` to accept the change.
* Run `testthat::snapshot_review('tm_a_gee')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_ci.R:12:3')
Snapshot of code has changed:
old[2:8] vs new[2:8]
    res
  Output
    {
-       gg <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
+       plot <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
            y = AVAL, color = SEX, lty = SEX, shape = SEX)) + ggplot2::stat_summary(fun.data = stat_mean_ci, 
            geom = "errorbar", width = 0.1, position = ggplot2::position_dodge(width = 0.5)) + 
            ggplot2::stat_summary(fun = mean, geom = "point", position = ggplot2::position_dodge(width = 0.5)) + 

old[10:14] vs new[10:13]
                caption = "Mean and 95% CIs for mean are displayed.", 
                x = "Treatment Group", y = "Value", color = "", lty = "", 
                shape = "")
-       print(gg)
    }

* Run `testthat::snapshot_accept('tm_g_ci')` to accept the change.
* Run `testthat::snapshot_review('tm_g_ci')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_ci.R:27:3')
Snapshot of code has changed:
old[2:8] vs new[2:8]
    res
  Output
    {
-       gg <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
+       plot <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
            y = AVAL, color = STRATA2, lty = STRATA2, shape = STRATA2)) + 
            ggplot2::stat_summary(fun.data = stat_mean_ci, geom = "errorbar", 
                width = 0.1, position = ggplot2::position_dodge(width = 0.5)) + 

old[11:15] vs new[11:14]
                caption = "Mean and 95% CIs for mean are displayed.", 
                x = "Treatment Group", y = "Value", color = "", lty = "", 
                shape = "")
-       print(gg)
    }

* Run `testthat::snapshot_accept('tm_g_ci')` to accept the change.
* Run `testthat::snapshot_review('tm_g_ci')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_ci.R:42:3')
Snapshot of code has changed:
old[2:8] vs new[2:8]
    res
  Output
    {
-       gg <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
+       plot <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
            y = AVAL, color = STRATA1, lty = STRATA1, shape = STRATA1)) + 
            ggplot2::stat_summary(fun.data = stat_median_ci, geom = "errorbar", 
                width = 0.1, position = ggplot2::position_dodge(width = 0.5)) + 

old[11:15] vs new[11:14]
                caption = "Median and 95% CIs for median are displayed.", 
                x = "Treatment Group", y = "Value", color = "", lty = "", 
                shape = "")
-       print(gg)
    }

* Run `testthat::snapshot_accept('tm_g_ci')` to accept the change.
* Run `testthat::snapshot_review('tm_g_ci')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_ci.R:58:3')
Snapshot of code has changed:
old[2:8] vs new[2:8]
    res
  Output
    {
-       gg <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
+       plot <- ggplot2::ggplot(data = ANL, mapping = ggplot2::aes(x = ARMCD, 
            y = AVAL, color = SEX, lty = SEX, shape = SEX)) + ggplot2::stat_summary(fun.data = function(x) stat_mean_ci(x, 
            conf_level = 0.9), geom = "errorbar", width = 0.1, position = ggplot2::position_dodge(width = 0.5)) + 
            ggplot2::stat_summary(fun = mean, geom = "point", position = ggplot2::position_dodge(width = 0.5)) + 

old[10:14] vs new[10:13]
                caption = "Mean and 90% CIs for mean are displayed.", 
                x = "Treatment Group", y = "Value", color = "", lty = "", 
                shape = "")
-       print(gg)
    }

* Run `testthat::snapshot_accept('tm_g_ci')` to accept the change.
* Run `testthat::snapshot_review('tm_g_ci')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_forest_rsp.R:16:3')
Snapshot of code has changed:
old[33:39] vs new[33:39]
        as_list = TRUE)
    
    $plot[[2]]
-   p <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Best Overall Response for "), 
+   plot <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Best Overall Response for "), 
        f[["plot"]] + ggplot2::labs(caption = ""), align = "h", axis = "tblr", 
        rel_widths = c(1 - 0.25, 0.25))
    

* Run `testthat::snapshot_accept('tm_g_forest_rsp')` to accept the change.
* Run `testthat::snapshot_review('tm_g_forest_rsp')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_forest_rsp.R:36:3')
Snapshot of code has changed:
old[35:41] vs new[35:41]
        as_list = TRUE)
    
    $plot[[2]]
-   p <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Best Overall Response for "), 
+   plot <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Best Overall Response for "), 
        f[["plot"]] + ggplot2::labs(caption = ""), align = "h", axis = "tblr", 
        rel_widths = c(1 - 0.25, 0.25))
    

* Run `testthat::snapshot_accept('tm_g_forest_rsp')` to accept the change.
* Run `testthat::snapshot_review('tm_g_forest_rsp')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_forest_tte.R:14:3')
Snapshot of code has changed:
old[36:42] vs new[36:42]
        as_list = TRUE)
    
    $plot[[2]]
-   p <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Survival Duration for \nStratified by STRATA2", 
+   plot <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Survival Duration for \nStratified by STRATA2", 
        subtitle = NULL), f[["plot"]] + ggplot2::labs(caption = ""), 
        align = "h", axis = "tblr", rel_widths = c(1 - 0.25, 0.25))
    

* Run `testthat::snapshot_accept('tm_g_forest_tte')` to accept the change.
* Run `testthat::snapshot_review('tm_g_forest_tte')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_forest_tte.R:32:3')
Snapshot of code has changed:
old[37:43] vs new[37:43]
        as_list = TRUE)
    
    $plot[[2]]
-   p <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Survival Duration for \nStratified by STRATA2", 
+   plot <- cowplot::plot_grid(f[["table"]] + ggplot2::labs(title = "Forest Plot of Survival Duration for \nStratified by STRATA2", 
        subtitle = NULL), f[["plot"]] + ggplot2::labs(caption = ""), 
        align = "h", axis = "tblr", rel_widths = c(1 - 0.25, 0.25))
    

* Run `testthat::snapshot_accept('tm_g_forest_tte')` to accept the change.
* Run `testthat::snapshot_review('tm_g_forest_tte')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_km.R:5:3')
Snapshot of code has changed:
old[50:55] vs new[50:54]
        g_km_counter <- g_km_counter_generator()
        plot_list <- lapply(anl, g_km_counter)
        plot <- cowplot::plot_grid(plotlist = plot_list, ncol = 1)
-       plot
    }
    

* Run `testthat::snapshot_accept('tm_g_km')` to accept the change.
* Run `testthat::snapshot_review('tm_g_km')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_km.R:16:3')
Snapshot of code has changed:
old[54:59] vs new[54:58]
        g_km_counter <- g_km_counter_generator()
        plot_list <- lapply(anl, g_km_counter)
        plot <- cowplot::plot_grid(plotlist = plot_list, ncol = 1)
-       plot
    }
    

* Run `testthat::snapshot_accept('tm_g_km')` to accept the change.
* Run `testthat::snapshot_review('tm_g_km')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_km.R:28:3')
Snapshot of code has changed:
old[55:60] vs new[55:59]
        g_km_counter <- g_km_counter_generator()
        plot_list <- lapply(anl, g_km_counter)
        plot <- cowplot::plot_grid(plotlist = plot_list, ncol = 1)
-       plot
    }
    

* Run `testthat::snapshot_accept('tm_g_km')` to accept the change.
* Run `testthat::snapshot_review('tm_g_km')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_lineplot.R:5:3')
Snapshot of code has changed:
old[22:27] vs new[22:26]
            legend_title = NULL, ggtheme = ggplot2::theme_minimal(), 
            control = control_analyze_vars(conf_level = 0.95), subtitle_add_paramcd = FALSE, 
            subtitle_add_unit = FALSE)
-       plot
    }
    

* Run `testthat::snapshot_accept('tm_g_lineplot')` to accept the change.
* Run `testthat::snapshot_review('tm_g_lineplot')` to interactively review the change.

Snapshot of code has changed: ('test-tm_g_lineplot.R:23:3')
Snapshot of code has changed:
old[22:27] vs new[22:26]
            legend_title = NULL, ggtheme = ggplot2::theme_minimal(), 
            control = control_analyze_vars(conf_level = 0.9), subtitle_add_paramcd = FALSE, 
            subtitle_add_unit = FALSE)
-       plot
    }
    

* Run `testthat::snapshot_accept('tm_g_lineplot')` to accept the change.
* Run `testthat::snapshot_review('tm_g_lineplot')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_abnormality.R:17:3')
Snapshot of code has changed:
old[36:43] vs new[36:42]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
+       table <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
            rtables::prune_table()
-       result
    }
    

* Run `testthat::snapshot_accept('tm_t_abnormality')` to accept the change.
* Run `testthat::snapshot_review('tm_t_abnormality')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_abnormality.R:39:3')
Snapshot of code has changed:
old[35:42] vs new[35:41]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
+       table <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
            rtables::prune_table()
-       result
    }
    

* Run `testthat::snapshot_accept('tm_t_abnormality')` to accept the change.
* Run `testthat::snapshot_review('tm_t_abnormality')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_abnormality.R:59:3')
Snapshot of code has changed:
old[36:43] vs new[36:42]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
+       table <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl) %>% 
            rtables::prune_table()
-       result
    }
    

* Run `testthat::snapshot_accept('tm_t_abnormality')` to accept the change.
* Run `testthat::snapshot_review('tm_t_abnormality')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_abnormality_by_worst_grade.R:17:3')
Snapshot of code has changed:
old[38:44] vs new[38:43]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl)
-       result
+       table <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = adsl)
    }
    

* Run `testthat::snapshot_accept('tm_t_abnormality_by_worst_grade')` to accept the change.
* Run `testthat::snapshot_review('tm_t_abnormality_by_worst_grade')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_abnormality_by_worst_grade.R:36:3')
Snapshot of code has changed:
old[38:44] vs new[38:43]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = myadsl)
-       result
+       table <- rtables::build_table(lyt = lyt, df = anl, alt_counts_df = myadsl)
    }
    

* Run `testthat::snapshot_accept('tm_t_abnormality_by_worst_grade')` to accept the change.
* Run `testthat::snapshot_review('tm_t_abnormality_by_worst_grade')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_ancova.R:20:3')
Snapshot of code has changed:
old[28:34] vs new[28:33]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
-       result
+       table <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
    }
    

* Run `testthat::snapshot_accept('tm_t_ancova')` to accept the change.
* Run `testthat::snapshot_review('tm_t_ancova')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_ancova.R:42:3')
Snapshot of code has changed:
old[30:36] vs new[30:35]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
-       result
+       table <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
    }
    

* Run `testthat::snapshot_accept('tm_t_ancova')` to accept the change.
* Run `testthat::snapshot_review('tm_t_ancova')` to interactively review the change.

Snapshot of code has changed: ('test-tm_t_ancova.R:64:3')
Snapshot of code has changed:
old[32:38] vs new[32:37]
    
    $table
    {
-       result <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
-       result
+       table <- rtables::build_table(lyt = lyt, df = adqs, alt_counts_df = adsl)
    }
    

* Run `testthat::snapshot_accept('tm_t_ancova')` to accept the change.
* Run `testthat::snapshot_review('tm_t_ancova')` to interactively review the change.