Skip to content

Commit

Permalink
Merge branch '959_more_templates@main' of github.com:Roche/rtables in…
Browse files Browse the repository at this point in the history
…to 959_more_templates@main
  • Loading branch information
Melkiades committed Dec 6, 2024
2 parents 9e2115f + d28a1d3 commit 33bac3e
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
Package: rtables
Title: Reporting Tables
Version: 0.6.10.9008
Date: 2024-11-29
Version: 0.6.10.9009
Date: 2024-12-05
Authors@R: c(
person("Gabriel", "Becker", , "[email protected]", role = "aut",
comment = "Original creator of the package"),
Expand Down Expand Up @@ -40,7 +40,7 @@ Imports:
stats,
stringi (>= 1.6)
Suggests:
broom (>= 1.0.6),
broom (>= 1.0.5),
car (>= 3.0-13),
dplyr (>= 1.0.5),
knitr (>= 1.42),
Expand Down
2 changes: 1 addition & 1 deletion NEWS.md
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
## rtables 0.6.10.9008
## rtables 0.6.10.9009

### New Features
* Experimental pagination is now possible in `tt_as_flextable()` and `export_as_docx()`.
Expand Down
2 changes: 1 addition & 1 deletion R/tt_as_df.R
Original file line number Diff line number Diff line change
Expand Up @@ -250,7 +250,7 @@ as_result_df <- function(tt, spec = NULL,
stat_name <- lapply(seq_along(stat_name), function(sn_i) {
stat_name[[sn_i]][seq_len(necessary_stat_lengths[sn_i])]
})
stat_name[sapply(stat_name, function(x) length(x) == 0)] <- NA
stat_name[!nzchar(stat_name)] <- NA

# unnesting stat_name and stat
tmp_ret_by_col_i <- NULL
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-result_data_frame.R
Original file line number Diff line number Diff line change
Expand Up @@ -240,7 +240,7 @@ test_that("as_result_df works fine with empty tables and no character(0) is allo
)
})

test_that("as_result_df works with only analyze tables (odd num of path elements)", {
test_that("as_result_df works with analyze-only tables (odd num of path elements)", {
tbl <- basic_table() %>%
analyze("cyl", table_names = "a") %>%
analyze("mpg") %>%
Expand Down

0 comments on commit 33bac3e

Please sign in to comment.