Merge pull request #24 from RConsortium/tlf-primary

RConsortium · Jan 31, 2022 · a46e694 · a46e694
2 parents 222d08e + 724735a
commit a46e694
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/output/tlf-primary.rtf b/output/tlf-primary.rtf
@@ -44,8 +44,8 @@
 \clbrdrt\clbrdrl\clbrdrb\brdrs\brdrw20\clbrdrr\clvertalb\clpadfl0\clpadl120 \clpadft0\clpadt120 \clpadfb0\clpadb120 \clpadfr0\clpadr120 \cellx8986 
 \clbrdrt\clbrdrl\clbrdrb\brdrs\brdrw20\clbrdrr\clvertalb\clpadfl0\clpadl120 \clpadft0\clpadt120 \clpadfb0\clpadb120 \clpadfr0\clpadr120 \cellx11232 \pard\intbl\qc{\fs20 \b {}\b0}\cell
 \pard\intbl\qc{\fs20 \b {Placebo\line(N=79)}\b0}\cell
-\pard\intbl\qc{\fs20 \b {Xanomeline\line High Dose\line(N=74)}\b0}\cell
 \pard\intbl\qc{\fs20 \b {Xanomeline\line Low Dose\line(N=81)}\b0}\cell
+\pard\intbl\qc{\fs20 \b {Xanomeline\line High Dose\line(N=74)}\b0}\cell
 \row
 }
 
@@ -59,7 +59,7 @@
 {\f1\fs20\i [3] Pairwise comparison with treatment as a categorical variable: p-values without adjustment for multiple comparisons.}
 \par\ql\tx7245\tqr\tx12960
 {\f1\fs20\i Source: <run interactively>}\pmartabqr 
-{\f1\fs20\i 22:01 Tuesday, January 25, 2022}\par
+{\f1\fs20\i 21:47 Monday, January 31, 2022}\par
 }
 {
 \trowd

diff --git a/vignettes/pdf/tlf-primary.pdf b/vignettes/pdf/tlf-primary.pdf
diff --git a/vignettes/tlf-primary.Rmd b/vignettes/tlf-primary.Rmd
@@ -77,7 +77,7 @@ t <- tplyr_table(adas, TRTP) %>%
     group_desc(CHG,  where= AVISITN == 24, by = "Change from Baseline")
   )
   
-hdr <- unique(adas$TRTP)
+hdr <- adas %>% distinct(TRTP, TRTPN) %>% arrange(TRTPN) %>% pull(TRTP)
 hdr_ext <- sapply(hdr, FUN = function(x) paste0("|", x, "\\line(N=**", x, "**)"), USE.NAMES = FALSE)
 hdr_fin <- paste(hdr_ext, collapse = "")
 # Want the header to wrap properly in the RTF file
@@ -114,7 +114,7 @@ ht <- huxtable::as_hux(final, add_colnames = FALSE) %>%
   huxtable::set_width(1.3) %>%
   huxtable::set_escape_contents(FALSE) %>%
   huxtable::set_col_width(c(.4, .2, .2, .2))
-ht
+cat(huxtable::to_screen(ht))
 ```
 
 ## Step 6: Write out the report