andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

re-added the report download option

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-18 11:26:00 +01:00
commit f07979e57c
No known key found for this signature in database
5 changed files with 97 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

10
inst/apps/data_analysis_modules/www/report.qmd
View file

@ -16,6 +16,7 @@ params:
web_data <- readr::read_rds(file = params$data.file)
library(gtsummary)
library(gt)
library(flextable)
library(easystats)
library(patchwork)
# library(webResearch)
@ -36,7 +37,9 @@ Below is the baseline characteristics plotted.
```{r}
#| label: tbl-baseline
#| tbl-cap: Baseline characteristics of included data
web_data$table1
web_data$table1 |>
gtsummary::as_flex_table() |>
flextable::set_table_properties(width = 1, layout = "autofit")
```
Here are the regression results.
@ -44,9 +47,12 @@ Here are the regression results.
```{r}
#| label: tbl-regression
#| tbl-cap: Regression analysis results
web_data$table2
web_data$table2|>
gtsummary::as_flex_table() |>
flextable::set_table_properties(width = 1, layout = "autofit")
```
## Discussion
Good luck on your further work!