andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 09:59:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

updated vignette
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-03 14:31:34 +02:00
parent 2800177fc5
commit 6ea46ea233
No known key found for this signature in database
5 changed files with 25 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'Version: 25.4.1.250403_1309' app_version <- function()'Version: 25.4.1.250403_1409'

2
R/correlations-module.R
View file

@ -128,7 +128,7 @@ sentence_paste <- function(data, and.str = "and") {
} else if (length(data) == 2) { } else if (length(data) == 2) {
paste(data, collapse = glue::glue(" {and.str} ")) paste(data, collapse = glue::glue(" {and.str} "))
} else if (length(data) > 2) { } else if (length(data) > 2) {
paste(paste(data[-length(data)], collapse = ", "), data[length(data)], collapse = glue::glue(" {and.str} ")) paste(paste(data[-length(data)], collapse = ", "), data[length(data)], sep = glue::glue(" {and.str} "))
} }
} }

4
inst/apps/FreesearchR/app.R
View file

@ -10,7 +10,7 @@
#### Current file: /Users/au301842/FreesearchR/R//app_version.R #### Current file: /Users/au301842/FreesearchR/R//app_version.R
######## ########
app_version <- function()'Version: 25.4.1.250403_1309' app_version <- function()'Version: 25.4.1.250403_1409'
######## ########
@ -287,7 +287,7 @@ sentence_paste <- function(data, and.str = "and") {
} else if (length(data) == 2) { } else if (length(data) == 2) {
paste(data, collapse = glue::glue(" {and.str} ")) paste(data, collapse = glue::glue(" {and.str} "))
} else if (length(data) > 2) { } else if (length(data) > 2) {
paste(paste(data[-length(data)], collapse = ", "), data[length(data)], collapse = glue::glue(" {and.str} ")) paste(paste(data[-length(data)], collapse = ", "), data[length(data)], sep = glue::glue(" {and.str} "))
} }
} }

2
inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 13611288 appId: 13611288
bundleId: 10047791 bundleId: 10049531
url: https://agdamsbo.shinyapps.io/freesearcheR/ url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1 version: 1

21
vignettes/FreesearchR.Rmd
View file

@ -9,6 +9,7 @@ vignette: >
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,eval = FALSE) knitr::opts_chunk$set(echo = TRUE,eval = FALSE)
source(here::here("functions.R"))
``` ```
# Getting started with ***FreesearchR*** # Getting started with ***FreesearchR***
@ -57,7 +58,25 @@ Currently several data file formats are supported for easy import (csv, txt, xls
## Visualise ## Visualise
- Would be nice to have a table of possible plots, their description and data options Below are the available plot types listed.
```{r echo = FALSE, eval = TRUE}
c("continuous", "dichotomous", "ordinal", "categorical") |>
lapply(\(.x){
dplyr::bind_cols(
dplyr::tibble("Data type"=.x),
supported_plots() |>
lapply(\(.y){
if (.x %in% .y$primary.type){
.y[c("descr","note")]|> dplyr::bind_cols()
}
})|>
dplyr::bind_rows() |>
setNames(c("Plot type","Description")))
}) |>
dplyr::bind_rows() |>
toastui::datagrid(filters=TRUE,theme="striped")
```
## Regression ## Regression