mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 09:59:39 +02:00
84 lines
2.4 KiB
Text
84 lines
2.4 KiB
Text
|
---
|
||
|
|
title: "FreesearchR data report"
|
||
|
|
date: "Report generated `r gsub('(\\D)0', '\\1', format(Sys.time(), '%A, %d.%m.%Y'))`"
|
||
|
|
format: docx
|
||
|
|
author: FreesearchR data analysis tool
|
||
|
|
toc: false
|
||
|
|
params:
|
||
|
|
data.file: NA
|
||
|
|
version: NA
|
||
|
|
regression.p: NA
|
||
|
|
---
|
||
|
|
|
||
|
|
```{r setup, echo = FALSE}
|
||
|
|
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
|
||
|
|
# glue::glue("{format(lubridate::today(),'%A')}, {lubridate::day(lubridate::today())}.{lubridate::month(lubridate::today())}.{lubridate::year(lubridate::today())}")
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
web_data <- readr::read_rds(file = params$data.file)
|
||
|
|
# web_data <- readr::read_rds(file = "~/FreesearchR/inst/apps/FreesearchR/www/web_data.rds")
|
||
|
|
library(gtsummary)
|
||
|
|
library(gt)
|
||
|
|
|
||
|
|
tbl_merge <- function(data) {
|
||
|
|
if (is.null(names(data))) {
|
||
|
|
data |> gtsummary::tbl_merge()
|
||
|
|
} else {
|
||
|
|
data |> gtsummary::tbl_merge(tab_spanner = names(data))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
vec2sentence <- function(data, sep.word = "and") {
|
||
|
|
sep.word <- paste0(" ", gsub(" ", "", sep.word), " ")
|
||
|
|
if (length(data) < 2) {
|
||
|
|
out <- data
|
||
|
|
} else if (length(data) == 2) {
|
||
|
|
out <- paste(data, collapse = sep.word)
|
||
|
|
} else {
|
||
|
|
out <- paste(paste(data[-length(data)], collapse = ","), data[length(data)], sep = sep.word)
|
||
|
|
}
|
||
|
|
return(out)
|
||
|
|
}
|
||
|
|
```
|
||
|
|
|
||
|
|
## Introduction
|
||
|
|
|
||
|
|
Research should be free and open with easy access for all. The *FreesearchR* tool attempts to help lower the bar to participate in research by making basic data exploration and analyses easily accessible.
|
||
|
|
|
||
|
|
## Methods
|
||
|
|
|
||
|
|
Analyses were conducted using the *FreesearchR* data analysis web-tool version `r params$version` based on *R* version 4.4.1.
|
||
|
|
|
||
|
|
## Results
|
||
|
|
|
||
|
|
Below are the baseline characteristics.
|
||
|
|
|
||
|
|
```{r, results = 'asis'}
|
||
|
|
if ("table1" %in% names(web_data)) {
|
||
|
|
tbl <- gtsummary::as_gt(web_data$table1)
|
||
|
|
knitr::knit_print(tbl)
|
||
|
|
}
|
||
|
|
```
|
||
|
|
|
||
|
|
`r if (length(web_data$regression) > 0) glue::glue("Below are the results from the { tolower(vec2sentence(names(web_data$regression$regression$tables)))} {web_data$regression$regression$params$descr}.")`
|
||
|
|
|
||
|
|
```{r, results = 'asis'}
|
||
|
|
if ("regression" %in% names(web_data) && length(web_data$regression) > 0) {
|
||
|
|
reg_tbl <- web_data$regression$regression$tables
|
||
|
|
|
||
|
|
merged <- tbl_merge(reg_tbl)
|
||
|
|
|
||
|
|
if (params$regression.p == "no") {
|
||
|
|
merged <- merged |>
|
||
|
|
gtsummary::modify_column_hide(column = dplyr::starts_with("p.value"))
|
||
|
|
}
|
||
|
|
|
||
|
|
knitr::knit_print(merged)
|
||
|
|
}
|
||
|
|
```
|
||
|
|
|
||
|
|
## Discussion
|
||
|
|
|
||
|
|
Good luck on your further work!
|