[skip ci] table rmarkdown (#564)

vignettes/chevron_catalog.rmd

@@ -727,17 +727,11 @@ run(rspt01, proc_data, ref_group = NULL, perform_analysis = "unstrat", strata =
 3) Since `rtables` displays the reference group at the very left column, the order of displayed treatment groups may not be exactly the same as the order factorized, depending on which group is selected as the reference group.
 See below for examples:
 
-```{r table1, results = 'asis'}
-tabl <- "
 | Factorized trt order        | ref_group =  | Displayed trt order | Ref group used in analysis |
 | :--------------------------:| :-----------:|:-------------------:|:--------------------------:|
 | ARM C, ARM B, ARM A         | NULL         | ARM C, ARM B, ARM A | ARM C                      |
 | NULL                        | ARM B        | ARM B, ARM A, ARM C | ARM B                      |
 | ARM C, ARM B, ARM A         | ARM B        | ARM B, ARM C, ARM A | ARM B                      |
-"
-
-cat(tabl)
-```
 
 #### **3. Best Overall Response  (selecting sections to display)**
 
@@ -769,24 +763,16 @@ run(rspt01, proc_data, perform_analysis = "strat", strata = c("STRATA1", "STRATA
 
 See table below for what each argument controls and the available method options:
 
-```{r table_args, results = 'asis'}
-tabl <- "
 | Arguments              | Methods controlled                          | Methods Options              |
 | :---------------------:| :------------------------------------------:|:----------------------------:|
 | prop_conf_method       | proportion confidence interval              | waldcc (default), wald, etc. |
 | diff_conf_method       | unstratified difference confidence interval | waldcc (default), wald, etc. |
 | diff_pval_method       | unstratified p-value for odds ratio         | chisq (default), fisher      |
 | strat_diff_conf_method | stratified difference confidence interval   | cmh (default), ha            |
 | strat_diff_pval_method | stratified p-value for odds ratio           | cmh (default), schouten      |
-"
-
-cat(tabl)
-```
 
 See in the table below the method options for estimates of proportions and the associated statistical methods:
 
-```{r table_prop, results = 'asis'}
-tabl <- "
 | Method Options  | Statistical Methods                       |
 | :--------------:| :----------------------------------------:|
 | clopper-pearson | Clopper-Pearson                           |
@@ -798,15 +784,9 @@ tabl <- "
 | strat_wilsonc   | Stratified Wilson, with correction        |
 | agresti-coull   | Agresti-Coull                             |
 | jeffreys        | Jeffreys                                  |
-"
-
-cat(tabl)
-```
 
 See in the table below the method options for estimates of proportion difference and the associated statistical methods:
 
-```{r table_prop_diff, results = 'asis'}
-tabl <- "
 | Method Options  | Statistical Methods                       |
 | :--------------:| :----------------------------------------:|
 | cmh             | CMH, without correction                   |
@@ -818,25 +798,15 @@ tabl <- "
 | strat_wilsonc   | Stratified Wilson, with correction        |
 | strat_newcombe  | Stratified Newcombe, without correction   |
 | strat_newcombecc| Stratified Newcombe, with correction      |
-"
-
-cat(tabl)
-```
 
 See in the table below the method options for testing proportion difference and the associated statistical methods:
 
-```{r table_test_prop_diff, results = 'asis'}
-tabl <- "
 | Method Options  | Statistical Methods                       |
 | :--------------:| :----------------------------------------:|
 | chisq           | Chi-Squared test                          |
 | fisher          | the Fisher's exact test                   |
 | cmh             | stratified Cochran-Mantel-Haenszel test   |
 | shouten         | Chi-Squared test with Schouten correction |
-"
-
-cat(tabl)
-```
 
 An example:  
 
@@ -966,6 +936,7 @@ preprocess(ttet01) <- function(adam_db, dataset = "adtte",
 
   adam_db
 }
+
 run(ttet01, proc_data, perform_analysis = "unstrat", timepoint = c(91, 183))
 ```