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

Compare commits

base: andreas:111c0663bcd2f3d8356f89e908f80c2fe7401fd2
Branches Tags
andreas:main
andreas:gh-pages
andreas:v25.8.2
andreas:v25.8.1
andreas:v25.7.2
andreas:v25.7.1
andreas:v25.6.3
andreas:v25.6.2
andreas:v25.6.1
andreas:v25.5.6
andreas:v25.5.4
andreas:v25.5.3
andreas:v25.5.2
andreas:v25.5.1
andreas:v25.4.5
andreas:v25.4.4
andreas:v25.4.3
andreas:v25.4.2
andreas:v25.4.1
andreas:v25.3.1
andreas:v24.12.1
..
compare: andreas:d6861492e342244158b84ca7da2bd4a3b53c0d60
Branches Tags
andreas:main
andreas:gh-pages
andreas:v25.8.2
andreas:v25.8.1
andreas:v25.7.2
andreas:v25.7.1
andreas:v25.6.3
andreas:v25.6.2
andreas:v25.6.1
andreas:v25.5.6
andreas:v25.5.4
andreas:v25.5.3
andreas:v25.5.2
andreas:v25.5.1
andreas:v25.4.5
andreas:v25.4.4
andreas:v25.4.3
andreas:v25.4.2
andreas:v25.4.1
andreas:v25.3.1
andreas:v24.12.1

No commits in common. "111c0663bcd2f3d8356f89e908f80c2fe7401fd2" and "d6861492e342244158b84ca7da2bd4a3b53c0d60" have entirely different histories.
111c0663bc ... d6861492e3

9 changed files with 89 additions and 93 deletions
Show stats Expand all files Collapse all files

2
CITATION.cff
View file

@ -9,7 +9,7 @@ type: software
license: AGPL-3.0-or-later license: AGPL-3.0-or-later
title: 'FreesearchR: A free and open-source browser based data analysis tool for researchers title: 'FreesearchR: A free and open-source browser based data analysis tool for researchers
with publication ready output' with publication ready output'
version: 25.6.1 version: 25.5.6
doi: 10.5281/zenodo.14527429 doi: 10.5281/zenodo.14527429
identifiers: identifiers:
- type: url - type: url

2
DESCRIPTION
View file

@ -1,6 +1,6 @@
Package: FreesearchR Package: FreesearchR
Title: A free and open-source browser based data analysis tool for researchers with publication ready output Title: A free and open-source browser based data analysis tool for researchers with publication ready output
Version: 25.6.1 Version: 25.5.6
Authors@R: c( Authors@R: c(
person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"), person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"),
comment = c(ORCID = "0000-0002-7559-1154")), comment = c(ORCID = "0000-0002-7559-1154")),

6
NEWS.md
View file

@ -1,9 +1,3 @@
# FreesearchR 25.6.1
- *FIX* big not allowing to browse data
- *FIX* caught the last bugs when initiating the creation of new variables
# FreesearchR 25.5.6 # FreesearchR 25.5.6
- *FIX* note on max file size of 5 mb - *FIX* note on max file size of 5 mb

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'25.6.1' app_version <- function()'25.5.6'

70
R/datagrid-infos-mod.R
View file

@ -103,7 +103,7 @@ show_data <- function(data,
title title
), ),
tags$div( tags$div(
style = htmltools::css(minHeight = htmltools::validateCssUnit(options$height)), style = css(minHeight = validateCssUnit(options$height)),
toastui::renderDatagrid2(datatable) toastui::renderDatagrid2(datatable)
), ),
size = "xl", size = "xl",
@ -118,25 +118,25 @@ show_data <- function(data,
#' @importFrom htmltools tagList tags css #' @importFrom htmltools tagList tags css
describe_col_char <- function(x, with_summary = TRUE) { describe_col_char <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("text-aa"), # phosphoricons::ph("text-aa"),
"character" "character"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Unique:"), length(unique(x)) i18n("Unique:"), length(unique(x))
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
style = htmltools::css(whiteSpace = "normal", wordBreak = "break-all"), style = css(whiteSpace = "normal", wordBreak = "break-all"),
datamods:::i18n("Most Common:"), gsub( i18n("Most Common:"), gsub(
pattern = "'", pattern = "'",
replacement = "\u07F4", replacement = "\u07F4",
x = names(sort(table(x), decreasing = TRUE))[1] x = names(sort(table(x), decreasing = TRUE))[1]
@ -161,16 +161,16 @@ describe_col_factor <- function(x, with_summary = TRUE) {
two <- count[!is.na(names(count))][2] two <- count[!is.na(names(count))][2]
missing <- count[is.na(names(count))] missing <- count[is.na(names(count))]
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("list-bullets"), # phosphoricons::ph("list-bullets"),
"factor" "factor"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
names(one), ":", fmt_p(one, total) names(one), ":", fmt_p(one, total)
), ),
@ -190,27 +190,27 @@ describe_col_factor <- function(x, with_summary = TRUE) {
describe_col_num <- function(x, with_summary = TRUE) { describe_col_num <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("hash"), # phosphoricons::ph("hash"),
"numeric" "numeric"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), round(min(x, na.rm = TRUE), 2) i18n("Min:"), round(min(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) i18n("Mean:"), round(mean(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), round(max(x, na.rm = TRUE), 2) i18n("Max:"), round(max(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
) )
) )
} }
@ -220,24 +220,24 @@ describe_col_num <- function(x, with_summary = TRUE) {
describe_col_date <- function(x, with_summary = TRUE) { describe_col_date <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("calendar"), # phosphoricons::ph("calendar"),
"date" "date"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), min(x, na.rm = TRUE) i18n("Min:"), min(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), max(x, na.rm = TRUE) i18n("Max:"), max(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"
@ -249,24 +249,24 @@ describe_col_date <- function(x, with_summary = TRUE) {
describe_col_datetime <- function(x, with_summary = TRUE) { describe_col_datetime <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("clock"), # phosphoricons::ph("clock"),
"datetime" "datetime"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), min(x, na.rm = TRUE) i18n("Min:"), min(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), max(x, na.rm = TRUE) i18n("Max:"), max(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"
@ -279,21 +279,21 @@ describe_col_datetime <- function(x, with_summary = TRUE) {
describe_col_other <- function(x, with_summary = TRUE) { describe_col_other <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("clock"), # phosphoricons::ph("clock"),
paste(class(x), collapse = ", ") paste(class(x), collapse = ", ")
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Unique:"), length(unique(x)) i18n("Unique:"), length(unique(x))
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"

2
R/hosted_version.R
View file

@ -1 +1 @@
hosted_version <- function()'v25.6.1-250604' hosted_version <- function()'v25.5.6-250516'

BIN
R/sysdata.rda
View file

Binary file not shown.

15
SESSION.md
View file

@ -11,11 +11,11 @@
|collate |en_US.UTF-8 | |collate |en_US.UTF-8 |
|ctype |en_US.UTF-8 | |ctype |en_US.UTF-8 |
|tz |Europe/Copenhagen | |tz |Europe/Copenhagen |
|date |2025-06-04 | |date |2025-05-16 |
|rstudio |2025.05.0+496 Mariposa Orchid (desktop) | |rstudio |2025.05.0+496 Mariposa Orchid (desktop) |
|pandoc |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown) | |pandoc |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown) |
|quarto |1.7.30 @ /usr/local/bin/quarto | |quarto |1.7.30 @ /usr/local/bin/quarto |
|FreesearchR |25.6.1.250604 | |FreesearchR |25.5.6.250516 |
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
@ -53,6 +53,7 @@
|colorspace |2.1-1 |2024-07-26 |CRAN (R 4.4.1) | |colorspace |2.1-1 |2024-07-26 |CRAN (R 4.4.1) |
|commonmark |1.9.5 |2025-03-17 |CRAN (R 4.4.1) | |commonmark |1.9.5 |2025-03-17 |CRAN (R 4.4.1) |
|crayon |1.5.3 |2024-06-20 |CRAN (R 4.4.1) | |crayon |1.5.3 |2024-06-20 |CRAN (R 4.4.1) |
|credentials |2.0.2 |2024-10-04 |CRAN (R 4.4.1) |
|curl |6.2.2 |2025-03-24 |CRAN (R 4.4.1) | |curl |6.2.2 |2025-03-24 |CRAN (R 4.4.1) |
|data.table |1.17.0 |2025-02-22 |CRAN (R 4.4.1) | |data.table |1.17.0 |2025-02-22 |CRAN (R 4.4.1) |
|datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) | |datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) |
@ -84,16 +85,19 @@
|foreach |1.5.2 |2022-02-02 |CRAN (R 4.4.0) | |foreach |1.5.2 |2022-02-02 |CRAN (R 4.4.0) |
|foreign |0.8-90 |2025-03-31 |CRAN (R 4.4.1) | |foreign |0.8-90 |2025-03-31 |CRAN (R 4.4.1) |
|Formula |1.2-5 |2023-02-24 |CRAN (R 4.4.1) | |Formula |1.2-5 |2023-02-24 |CRAN (R 4.4.1) |
|FreesearchR |25.6.1 |NA |NA | |FreesearchR |25.5.6 |NA |NA |
|fs |1.6.6 |2025-04-12 |CRAN (R 4.4.1) | |fs |1.6.6 |2025-04-12 |CRAN (R 4.4.1) |
|gdtools |0.4.2 |2025-03-27 |CRAN (R 4.4.1) | |gdtools |0.4.2 |2025-03-27 |CRAN (R 4.4.1) |
|generics |0.1.3 |2022-07-05 |CRAN (R 4.4.1) | |generics |0.1.3 |2022-07-05 |CRAN (R 4.4.1) |
|gert |2.1.5 |2025-03-25 |CRAN (R 4.4.1) |
|ggalluvial |0.12.5 |2023-02-22 |CRAN (R 4.4.0) | |ggalluvial |0.12.5 |2023-02-22 |CRAN (R 4.4.0) |
|ggcorrplot |0.1.4.1 |2023-09-05 |CRAN (R 4.4.0) | |ggcorrplot |0.1.4.1 |2023-09-05 |CRAN (R 4.4.0) |
|ggforce |0.4.2 |2024-02-19 |CRAN (R 4.4.0) | |ggforce |0.4.2 |2024-02-19 |CRAN (R 4.4.0) |
|ggplot2 |3.5.2 |2025-04-09 |CRAN (R 4.4.1) | |ggplot2 |3.5.2 |2025-04-09 |CRAN (R 4.4.1) |
|ggridges |0.5.6 |2024-01-23 |CRAN (R 4.4.0) | |ggridges |0.5.6 |2024-01-23 |CRAN (R 4.4.0) |
|ggstats |0.9.0 |2025-03-10 |CRAN (R 4.4.1) | |ggstats |0.9.0 |2025-03-10 |CRAN (R 4.4.1) |
|gh |1.4.1 |2024-03-28 |CRAN (R 4.4.0) |
|gitcreds |0.1.2 |2022-09-08 |CRAN (R 4.4.1) |
|glue |1.8.0 |2024-09-30 |CRAN (R 4.4.1) | |glue |1.8.0 |2024-09-30 |CRAN (R 4.4.1) |
|gridExtra |2.3 |2017-09-09 |CRAN (R 4.4.1) | |gridExtra |2.3 |2017-09-09 |CRAN (R 4.4.1) |
|gt |1.0.0 |2025-04-05 |CRAN (R 4.4.1) | |gt |1.0.0 |2025-04-05 |CRAN (R 4.4.1) |
@ -107,6 +111,7 @@
|htmltools |0.5.8.1 |2024-04-04 |CRAN (R 4.4.1) | |htmltools |0.5.8.1 |2024-04-04 |CRAN (R 4.4.1) |
|htmlwidgets |1.6.4 |2023-12-06 |CRAN (R 4.4.0) | |htmlwidgets |1.6.4 |2023-12-06 |CRAN (R 4.4.0) |
|httpuv |1.6.16 |2025-04-16 |CRAN (R 4.4.1) | |httpuv |1.6.16 |2025-04-16 |CRAN (R 4.4.1) |
|httr2 |1.1.2 |2025-03-26 |CRAN (R 4.4.1) |
|IDEAFilter |0.2.0 |2024-04-15 |CRAN (R 4.4.0) | |IDEAFilter |0.2.0 |2024-04-15 |CRAN (R 4.4.0) |
|insight |1.2.0 |2025-04-22 |CRAN (R 4.4.1) | |insight |1.2.0 |2025-04-22 |CRAN (R 4.4.1) |
|iterators |1.0.14 |2022-02-05 |CRAN (R 4.4.1) | |iterators |1.0.14 |2022-02-05 |CRAN (R 4.4.1) |
@ -119,9 +124,11 @@
|later |1.4.2 |2025-04-08 |CRAN (R 4.4.1) | |later |1.4.2 |2025-04-08 |CRAN (R 4.4.1) |
|lattice |0.22-7 |2025-04-02 |CRAN (R 4.4.1) | |lattice |0.22-7 |2025-04-02 |CRAN (R 4.4.1) |
|lifecycle |1.0.4 |2023-11-07 |CRAN (R 4.4.1) | |lifecycle |1.0.4 |2023-11-07 |CRAN (R 4.4.1) |
|litedown |0.7 |2025-04-08 |CRAN (R 4.4.1) |
|lme4 |1.1-37 |2025-03-26 |CRAN (R 4.4.1) | |lme4 |1.1-37 |2025-03-26 |CRAN (R 4.4.1) |
|lubridate |1.9.4 |2024-12-08 |CRAN (R 4.4.1) | |lubridate |1.9.4 |2024-12-08 |CRAN (R 4.4.1) |
|magrittr |2.0.3 |2022-03-30 |CRAN (R 4.4.1) | |magrittr |2.0.3 |2022-03-30 |CRAN (R 4.4.1) |
|markdown |2.0 |2025-03-23 |CRAN (R 4.4.1) |
|MASS |7.3-65 |2025-02-28 |CRAN (R 4.4.1) | |MASS |7.3-65 |2025-02-28 |CRAN (R 4.4.1) |
|Matrix |1.7-3 |2025-03-11 |CRAN (R 4.4.1) | |Matrix |1.7-3 |2025-03-11 |CRAN (R 4.4.1) |
|memoise |2.0.1 |2021-11-26 |CRAN (R 4.4.0) | |memoise |2.0.1 |2021-11-26 |CRAN (R 4.4.0) |
@ -160,6 +167,7 @@
|R6 |2.6.1 |2025-02-15 |CRAN (R 4.4.1) | |R6 |2.6.1 |2025-02-15 |CRAN (R 4.4.1) |
|ragg |1.4.0 |2025-04-10 |CRAN (R 4.4.1) | |ragg |1.4.0 |2025-04-10 |CRAN (R 4.4.1) |
|rankinPlot |1.1.0 |2023-01-30 |CRAN (R 4.4.0) | |rankinPlot |1.1.0 |2023-01-30 |CRAN (R 4.4.0) |
|rappdirs |0.3.3 |2021-01-31 |CRAN (R 4.4.1) |
|rbibutils |2.3 |2024-10-04 |CRAN (R 4.4.1) | |rbibutils |2.3 |2024-10-04 |CRAN (R 4.4.1) |
|RColorBrewer |1.1-3 |2022-04-03 |CRAN (R 4.4.1) | |RColorBrewer |1.1-3 |2022-04-03 |CRAN (R 4.4.1) |
|Rcpp |1.0.14 |2025-01-12 |CRAN (R 4.4.1) | |Rcpp |1.0.14 |2025-01-12 |CRAN (R 4.4.1) |
@ -196,6 +204,7 @@
|shinyWidgets |0.9.0 |2025-02-21 |CRAN (R 4.4.1) | |shinyWidgets |0.9.0 |2025-02-21 |CRAN (R 4.4.1) |
|stringi |1.8.7 |2025-03-27 |CRAN (R 4.4.1) | |stringi |1.8.7 |2025-03-27 |CRAN (R 4.4.1) |
|stringr |1.5.1 |2023-11-14 |CRAN (R 4.4.0) | |stringr |1.5.1 |2023-11-14 |CRAN (R 4.4.0) |
|sys |3.4.3 |2024-10-04 |CRAN (R 4.4.1) |
|systemfonts |1.2.2 |2025-04-04 |CRAN (R 4.4.1) | |systemfonts |1.2.2 |2025-04-04 |CRAN (R 4.4.1) |
|testthat |3.2.3 |2025-01-13 |CRAN (R 4.4.1) | |testthat |3.2.3 |2025-01-13 |CRAN (R 4.4.1) |
|textshaping |1.0.0 |2025-01-20 |CRAN (R 4.4.1) | |textshaping |1.0.0 |2025-01-20 |CRAN (R 4.4.1) |

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

@ -49,7 +49,7 @@ library(rlang)
#### Current file: /Users/au301842/FreesearchR/R//app_version.R #### Current file: /Users/au301842/FreesearchR/R//app_version.R
######## ########
app_version <- function()'25.6.1' app_version <- function()'25.5.6'
######## ########
@ -3078,7 +3078,7 @@ show_data <- function(data,
title title
), ),
tags$div( tags$div(
style = htmltools::css(minHeight = htmltools::validateCssUnit(options$height)), style = css(minHeight = validateCssUnit(options$height)),
toastui::renderDatagrid2(datatable) toastui::renderDatagrid2(datatable)
), ),
size = "xl", size = "xl",
@ -3093,25 +3093,25 @@ show_data <- function(data,
#' @importFrom htmltools tagList tags css #' @importFrom htmltools tagList tags css
describe_col_char <- function(x, with_summary = TRUE) { describe_col_char <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("text-aa"), # phosphoricons::ph("text-aa"),
"character" "character"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Unique:"), length(unique(x)) i18n("Unique:"), length(unique(x))
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
style = htmltools::css(whiteSpace = "normal", wordBreak = "break-all"), style = css(whiteSpace = "normal", wordBreak = "break-all"),
datamods:::i18n("Most Common:"), gsub( i18n("Most Common:"), gsub(
pattern = "'", pattern = "'",
replacement = "\u07F4", replacement = "\u07F4",
x = names(sort(table(x), decreasing = TRUE))[1] x = names(sort(table(x), decreasing = TRUE))[1]
@ -3136,16 +3136,16 @@ describe_col_factor <- function(x, with_summary = TRUE) {
two <- count[!is.na(names(count))][2] two <- count[!is.na(names(count))][2]
missing <- count[is.na(names(count))] missing <- count[is.na(names(count))]
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("list-bullets"), # phosphoricons::ph("list-bullets"),
"factor" "factor"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
names(one), ":", fmt_p(one, total) names(one), ":", fmt_p(one, total)
), ),
@ -3165,27 +3165,27 @@ describe_col_factor <- function(x, with_summary = TRUE) {
describe_col_num <- function(x, with_summary = TRUE) { describe_col_num <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("hash"), # phosphoricons::ph("hash"),
"numeric" "numeric"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), round(min(x, na.rm = TRUE), 2) i18n("Min:"), round(min(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) i18n("Mean:"), round(mean(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), round(max(x, na.rm = TRUE), 2) i18n("Max:"), round(max(x, na.rm = TRUE), 2)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
) )
) )
} }
@ -3195,24 +3195,24 @@ describe_col_num <- function(x, with_summary = TRUE) {
describe_col_date <- function(x, with_summary = TRUE) { describe_col_date <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("calendar"), # phosphoricons::ph("calendar"),
"date" "date"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), min(x, na.rm = TRUE) i18n("Min:"), min(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), max(x, na.rm = TRUE) i18n("Max:"), max(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"
@ -3224,24 +3224,24 @@ describe_col_date <- function(x, with_summary = TRUE) {
describe_col_datetime <- function(x, with_summary = TRUE) { describe_col_datetime <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("clock"), # phosphoricons::ph("clock"),
"datetime" "datetime"
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Min:"), min(x, na.rm = TRUE) i18n("Min:"), min(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Max:"), max(x, na.rm = TRUE) i18n("Max:"), max(x, na.rm = TRUE)
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"
@ -3254,21 +3254,21 @@ describe_col_datetime <- function(x, with_summary = TRUE) {
describe_col_other <- function(x, with_summary = TRUE) { describe_col_other <- function(x, with_summary = TRUE) {
tags$div( tags$div(
style = htmltools::css(padding = "3px 0", fontSize = "x-small"), style = css(padding = "3px 0", fontSize = "x-small"),
tags$div( tags$div(
style = htmltools::css(fontStyle = "italic"), style = css(fontStyle = "italic"),
get_var_icon(x), get_var_icon(x),
# phosphoricons::ph("clock"), # phosphoricons::ph("clock"),
paste(class(x), collapse = ", ") paste(class(x), collapse = ", ")
), ),
if (with_summary) { if (with_summary) {
tagList( tagList(
tags$hr(style = htmltools::css(margin = "3px 0")), tags$hr(style = css(margin = "3px 0")),
tags$div( tags$div(
datamods:::i18n("Unique:"), length(unique(x)) i18n("Unique:"), length(unique(x))
), ),
tags$div( tags$div(
datamods:::i18n("Missing:"), sum(is.na(x)) i18n("Missing:"), sum(is.na(x))
), ),
tags$div( tags$div(
"\u00A0" "\u00A0"
@ -3996,7 +3996,7 @@ simple_snake <- function(data){
#### Current file: /Users/au301842/FreesearchR/R//hosted_version.R #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R
######## ########
hosted_version <- function()'v25.6.1-250604' hosted_version <- function()'v25.5.6-250516'
######## ########
@ -10368,14 +10368,7 @@ server <- function(input, output, session) {
) )
observeEvent(input$modal_browse, { observeEvent(input$modal_browse, {
tryCatch( show_data(REDCapCAST::fct_drop(rv$data_filtered), title = "Uploaded data overview", type = "modal")
{
show_data(REDCapCAST::fct_drop(rv$data_filtered), title = "Uploaded data overview", type = "modal")
},
error = function(err) {
showNotification(paste0("We encountered the following error browsing your data: ", err), type = "err")
}
)
}) })
output$original_str <- renderPrint({ output$original_str <- renderPrint({