From a51e7f28773075e88c9fb40064d2d27b33a1010c Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Wed, 4 Jun 2025 14:59:45 +0200 Subject: [PATCH] library ref missing --- CITATION.cff | 2 +- DESCRIPTION | 2 +- NEWS.md | 6 +++ R/app_version.R | 2 +- R/datagrid-infos-mod.R | 70 +++++++++++++++++----------------- R/hosted_version.R | 2 +- R/sysdata.rda | Bin 2718 -> 2663 bytes SESSION.md | 15 ++------ inst/apps/FreesearchR/app.R | 74 ++++++++++++++++++------------------ 9 files changed, 85 insertions(+), 88 deletions(-) diff --git a/CITATION.cff b/CITATION.cff index 4ceeccf..2903935 100644 --- a/CITATION.cff +++ b/CITATION.cff @@ -9,7 +9,7 @@ type: software license: AGPL-3.0-or-later title: 'FreesearchR: A free and open-source browser based data analysis tool for researchers with publication ready output' -version: 25.5.6 +version: 25.6.1 doi: 10.5281/zenodo.14527429 identifiers: - type: url diff --git a/DESCRIPTION b/DESCRIPTION index e723fde..5c9b248 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: FreesearchR Title: A free and open-source browser based data analysis tool for researchers with publication ready output -Version: 25.5.6 +Version: 25.6.1 Authors@R: c( person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7559-1154")), diff --git a/NEWS.md b/NEWS.md index 6534c2d..05d0347 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,9 @@ +# 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 - *FIX* note on max file size of 5 mb diff --git a/R/app_version.R b/R/app_version.R index 7290e2e..e81f97f 100644 --- a/R/app_version.R +++ b/R/app_version.R @@ -1 +1 @@ -app_version <- function()'25.5.6' +app_version <- function()'25.6.1' diff --git a/R/datagrid-infos-mod.R b/R/datagrid-infos-mod.R index 8d898f7..ce8dad1 100644 --- a/R/datagrid-infos-mod.R +++ b/R/datagrid-infos-mod.R @@ -103,7 +103,7 @@ show_data <- function(data, title ), tags$div( - style = css(minHeight = validateCssUnit(options$height)), + style = htmltools::css(minHeight = htmltools::validateCssUnit(options$height)), toastui::renderDatagrid2(datatable) ), size = "xl", @@ -118,25 +118,25 @@ show_data <- function(data, #' @importFrom htmltools tagList tags css describe_col_char <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("text-aa"), "character" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Unique:"), length(unique(x)) + datamods:::i18n("Unique:"), length(unique(x)) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( - style = css(whiteSpace = "normal", wordBreak = "break-all"), - i18n("Most Common:"), gsub( + style = htmltools::css(whiteSpace = "normal", wordBreak = "break-all"), + datamods:::i18n("Most Common:"), gsub( pattern = "'", replacement = "\u07F4", 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] missing <- count[is.na(names(count))] tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("list-bullets"), "factor" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( 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) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("hash"), "numeric" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), round(min(x, na.rm = TRUE), 2) + datamods:::i18n("Min:"), round(min(x, na.rm = TRUE), 2) ), tags$div( - i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) + datamods:::i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) ), tags$div( - i18n("Max:"), round(max(x, na.rm = TRUE), 2) + datamods:::i18n("Max:"), round(max(x, na.rm = TRUE), 2) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::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) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("calendar"), "date" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), min(x, na.rm = TRUE) + datamods:::i18n("Min:"), min(x, na.rm = TRUE) ), tags$div( - i18n("Max:"), max(x, na.rm = TRUE) + datamods:::i18n("Max:"), max(x, na.rm = TRUE) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" @@ -249,24 +249,24 @@ describe_col_date <- function(x, with_summary = TRUE) { describe_col_datetime <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("clock"), "datetime" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), min(x, na.rm = TRUE) + datamods:::i18n("Min:"), min(x, na.rm = TRUE) ), tags$div( - i18n("Max:"), max(x, na.rm = TRUE) + datamods:::i18n("Max:"), max(x, na.rm = TRUE) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" @@ -279,21 +279,21 @@ describe_col_datetime <- function(x, with_summary = TRUE) { describe_col_other <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("clock"), paste(class(x), collapse = ", ") ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Unique:"), length(unique(x)) + datamods:::i18n("Unique:"), length(unique(x)) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" diff --git a/R/hosted_version.R b/R/hosted_version.R index bf34da5..095d1d4 100644 --- a/R/hosted_version.R +++ b/R/hosted_version.R @@ -1 +1 @@ -hosted_version <- function()'v25.5.6-250516' +hosted_version <- function()'v25.6.1-250604' diff --git a/R/sysdata.rda b/R/sysdata.rda index 8eef1f3247ebf0619ecd0da06acc73bcdaeadb97..66754e3c02acac0bc85327e5cedd28d4e2c1d5cf 100644 GIT binary patch literal 2663 zcmV-t3YhgmT4*^jL0KkKS^b)bg8&&1f5iX)Xazw3|L}ir-@w2B|L{Nn0RRXA;0wPO zIf%Q`1J7z|*a6T1^Wb^_P$@@-rXUb#&`dx^5SleK(-icZK!5=KLNTeHlp3CZnvhe| zO*BBnG|`{{0000000ydmqa@U*4FRE{qd)^pfM~=302u%QCXyjdDt@LEdTAL0BPXb6 z0BC5?0MG+X02)yMGz}VQpa1{>0000CfB;CL6!g-crkaR7OrNL|Xg~~%CJ4eaM9^uF zF(z?Uj=}}h6_r2bd)Z28QR)D#v$m=Zys^6*Z+F=ph_2h{6UY%E_{Vq#-=1JctP> zCe~&aEK4XV#&0h0ktG7P%-kbF0!A%5`L&M)#(#GM?Z5O*$G;Y1i(^b>*3X>krW(wP zr6HCz)*vMfdcb8#@z$6Q*?3U2aY+i|pR*3hzHoVh0JT5;lmm~DkT_w8DU8Z7b} zi>=K*FoPg)H;1XJnp!}wbYv#=OyJx_-LFq}DH3H=hFN);-Jw_}4?!JpvJ4@_J4wPy zMioy@QtXQtX1p3ino5OrqAH0Z?Ruqny2V_z(iuodmfmAq1VGrmAIB_lw`l~tEiZAT zaP4DsBHhn!ee;!i&JkQm@4}qDIFkrM%3vgS9aUhStoiMC0QWHh5$uvl0w75wQXry? zB!nW6g=q)`AI5Lhk!t}UuS-k6#^$SsA*6s+mD2>NLmOih zRf5470)jFsf-pu!RagoU86v@qf}#k;kx>>$zt!tE><0q<0%IbH=BnMU_2?R`Q%u_0 z@x|VyVw*`)`WpisHP+1A!tcn=bWl@E7w9wi&K2ofw3nr5DXAMv$tOcwBBuE!B+!tMI5gj(V z-li-UZCnj?noQOY7+tuU*6!(Dvh6cC)ijQ+Zt$cVG8uTG4J!y4fZk{k5h`Lyn7L|V zgEn_$>s@kFfl=Hf76gH1uClEX%nD*$C~yTBIi>^?leJDTFv3#~Vhml#Yc=LoiMdm0 zYbA)#HAdh0H8$6KcZ;tF*ez_tTU3Xoww$UiI{mhjzEJ}@|U6!*9 zVOdOJ;UgmpAV7tY(HW00L8=%+vZg9d01#qgNi0&6P~wu1wgm!OvQkMcB?3dZ_VuX< zuzNC8P#;OYbhsMiwvCPYcm-7*Qn8U3AZ-N-$yJWi!8~@zA}{W>7Qo$GTRP6`@^m}a!<)N5;PSh9F-P5W2#d{g>)VE_`Hl%ncUyhsoL zx&`&vjS~{@ZFU9*i6*CaQFM@)TNljpj7F13$DBZb1cO~GGSi$HTz-iH02frD5Fi0{ z?>mYGz4pqH zKvSrFD*(b?E5gEL3|QR+KQ5ptmT zUXQJfRiDpIOlC$J3X$!eMROo>9hhG*eghP&N1U%)89R_Cv(Y79Pz@ZMp3L0UNxN0L zJ3EEG$vBg%^;N^QYE5ev4!#LVy4|k$!&49(Cq2n(X9g&7aj{!q#vMOFpe{2Nxl4KEhro)^gdAag`IivV zg~Wi?AhIr&O&Sm;c$N{3o5J=8O4vcSUZX+D0ws%C?A3x9C+#W}HxjvK)>Fuo3=<%V ztwAdtq#mv03)#00A9V;iYOt&pq(JkGcnp#*awNMk;XGXCeLhDHf*jIfZD9%E7&p8M{l4XJv#SgcQVbMsjl zUR5saB&TFl5fmiX>PNQLdX}tjT|NC&cdGGnh#9jj>l{V(^2VunWwXysgeJt&!mn`8 zO;qjd`eS@CqXNvTm2O6>YpbqV3N9thHZM_7H%geo!Vz)FmHH;4G)z@>+)}*s?K%U6 Vg>sQ05==cwPQ!2C8+2f7)YB?=tn$4?0 zk+Ff%VX&SU(tK>O-yfG&x@iL(pq=>+B#k8FZ7(yT7F&)m`oc)CUm~?;wUcPw{sh02 zAPZ5+Bj_!aM8AQ)9LWexz+YE@1j~bo z9fxZfnHK(gvTu^<*`b_>!!0=O?Lfr<02&g2P&e?)ztqK}%f-c*!0km;PH2Fm6hH|E z1cZb{0c24sD5!_-2qUc(KrGmlWcvz(vF+PBdg7+E0261KpHFICm(!&H5x~OwOW^_$ zjDaM9B0?Z2D#)q`!5I}186b!(g27fn6hRoWDj+C6m%{Hi?1u&UWX44k-qdq8yVtZe zSf-i9wdXGND-_yFm)dAd9W~a>+r{37b47xf$+s0ag-&wXYgEhD=q|U)VN;l8xeq@q z&RMj_jMpwY>dmvg^}|b;v82waFy8YwLcvoTd$^`qQ+EwJ-h~xY6+(@>q?}M;LEn*X z1+qkFy#i!f1hZE<9%X}@mkk682wk}%PC}sqs$x!b6_I(2@1uPvZD6K0kA*FCsbRbrVnhocnL^j|c8+NUu ziiVV`5`b!?T0jb=pj5_nEwvUzjqz$S0W(U~m4U8{XwYxaz$&Qfm5hkN186BL0;?UT zrk+;FBN6?Uy%Mljrg0%sXS1(=;JmiAwp(H=%-(}SB1R-e0LC!`mdI|(Mj`=NfTNZc zML24p@2JO;kA3u#7faz+%yd;2v9z^Cgp#C^(qK7Z+caengR76tO1hzRm<_8@Qok9i z4NfAE_&hBon>?*Na zJe}W1&3xwNa_w>f+DGF34Ke;AzJyIN_4oF*mBf4(@LC8gU<+L6BW?A#$_(uc@S(QX z{Nuty@MzMo8yr>md6`yYxbG+z2hw#31v*cuU>HgZHCjx8i(8n7r|CPZbX+>3l?$OV#!t_83%0j$dA{BpwMzmMrgeIU ztIKr72uNTGu4^H;ZFl%|Wg`Njle|-8vs3U=$2&~>Si)SVxJJdP3uM-#VuE>o&H*DK zwz{J47Z;rQ2{0GT`w(xth=*Z^7f++Y-@+WDD_H-54t~REuZ{N3Mj$*?P_1BvqM%Cq zAi`r=sUgs*Xx9O@RAt{qwdU7Hv!`=L;7To6sW(@gfIy zX{@!NYiw$aL{=H|7BiVm9>ay|=*SAagd+H{LRl6|w5zr3j0i^%NT|W*n`m5ZL=x(j zauKkrHyUWgJ06>T&u%v>bQr^{+Gq=v1&-oOI3{aMgQy^kp!u3{q&3lzkRAvvM&+$t zR2JT{#cbR0P7wr{z@v^Px`D9*BTcow*Vcq%wsf#K2OAr@ntli?#WQ@X3IR^E_|N546T(be={W>~Hi#jzSUKQYCrjmG_-R z_A)hwL$3GXvEz#xP~| zZ&^l8njv+x)SB$MWCG08LwQaIX6>CzuS%?IiHl`=eKmQgIiRJ-tFaJQp5e=0R^4p6 zaxQ5$4f0z(K0Mt`G-+v_(^W$&WQ{yU9fIcd3yB1YTrX(?K*~%cLf2+4w^L`T%Wbsm zCw0v%J%N?75e{G;hk5Eoa)d(%b;d|m&dS&1T@9@dfjEn25x1ipFI0uuyH0g$J@dcG zbZ2#Iy<=3=?21H13AP&1?YV{MTCu^EcXdm-SPPUu&6#mnWnQR5=|Ft*z|i0xiQpj%{Dd9 Yux>!Y+e<{W=b!O+BvXY62?{pVuyou46#xJL diff --git a/SESSION.md b/SESSION.md index f21212d..eeee39b 100644 --- a/SESSION.md +++ b/SESSION.md @@ -11,11 +11,11 @@ |collate |en_US.UTF-8 | |ctype |en_US.UTF-8 | |tz |Europe/Copenhagen | -|date |2025-05-16 | +|date |2025-06-04 | |rstudio |2025.05.0+496 Mariposa Orchid (desktop) | |pandoc |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown) | |quarto |1.7.30 @ /usr/local/bin/quarto | -|FreesearchR |25.5.6.250516 | +|FreesearchR |25.6.1.250604 | -------------------------------------------------------------------------------- @@ -53,7 +53,6 @@ |colorspace |2.1-1 |2024-07-26 |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) | -|credentials |2.0.2 |2024-10-04 |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) | |datamods |1.5.3 |2024-10-02 |CRAN (R 4.4.1) | @@ -85,19 +84,16 @@ |foreach |1.5.2 |2022-02-02 |CRAN (R 4.4.0) | |foreign |0.8-90 |2025-03-31 |CRAN (R 4.4.1) | |Formula |1.2-5 |2023-02-24 |CRAN (R 4.4.1) | -|FreesearchR |25.5.6 |NA |NA | +|FreesearchR |25.6.1 |NA |NA | |fs |1.6.6 |2025-04-12 |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) | -|gert |2.1.5 |2025-03-25 |CRAN (R 4.4.1) | |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) | |ggforce |0.4.2 |2024-02-19 |CRAN (R 4.4.0) | |ggplot2 |3.5.2 |2025-04-09 |CRAN (R 4.4.1) | |ggridges |0.5.6 |2024-01-23 |CRAN (R 4.4.0) | |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) | |gridExtra |2.3 |2017-09-09 |CRAN (R 4.4.1) | |gt |1.0.0 |2025-04-05 |CRAN (R 4.4.1) | @@ -111,7 +107,6 @@ |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) | |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) | |insight |1.2.0 |2025-04-22 |CRAN (R 4.4.1) | |iterators |1.0.14 |2022-02-05 |CRAN (R 4.4.1) | @@ -124,11 +119,9 @@ |later |1.4.2 |2025-04-08 |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) | -|litedown |0.7 |2025-04-08 |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) | |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) | |Matrix |1.7-3 |2025-03-11 |CRAN (R 4.4.1) | |memoise |2.0.1 |2021-11-26 |CRAN (R 4.4.0) | @@ -167,7 +160,6 @@ |R6 |2.6.1 |2025-02-15 |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) | -|rappdirs |0.3.3 |2021-01-31 |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) | |Rcpp |1.0.14 |2025-01-12 |CRAN (R 4.4.1) | @@ -204,7 +196,6 @@ |shinyWidgets |0.9.0 |2025-02-21 |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) | -|sys |3.4.3 |2024-10-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) | |textshaping |1.0.0 |2025-01-20 |CRAN (R 4.4.1) | diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R index 22b7ee4..c9b9f1c 100644 --- a/inst/apps/FreesearchR/app.R +++ b/inst/apps/FreesearchR/app.R @@ -49,7 +49,7 @@ library(rlang) #### Current file: /Users/au301842/FreesearchR/R//app_version.R ######## -app_version <- function()'25.5.6' +app_version <- function()'25.5.7' ######## @@ -3078,7 +3078,7 @@ show_data <- function(data, title ), tags$div( - style = css(minHeight = validateCssUnit(options$height)), + style = htmltools::css(minHeight = htmltools::validateCssUnit(options$height)), toastui::renderDatagrid2(datatable) ), size = "xl", @@ -3093,25 +3093,25 @@ show_data <- function(data, #' @importFrom htmltools tagList tags css describe_col_char <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("text-aa"), "character" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Unique:"), length(unique(x)) + datamods:::i18n("Unique:"), length(unique(x)) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( - style = css(whiteSpace = "normal", wordBreak = "break-all"), - i18n("Most Common:"), gsub( + style = htmltools::css(whiteSpace = "normal", wordBreak = "break-all"), + datamods:::i18n("Most Common:"), gsub( pattern = "'", replacement = "\u07F4", 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] missing <- count[is.na(names(count))] tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("list-bullets"), "factor" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( 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) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("hash"), "numeric" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), round(min(x, na.rm = TRUE), 2) + datamods:::i18n("Min:"), round(min(x, na.rm = TRUE), 2) ), tags$div( - i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) + datamods:::i18n("Mean:"), round(mean(x, na.rm = TRUE), 2) ), tags$div( - i18n("Max:"), round(max(x, na.rm = TRUE), 2) + datamods:::i18n("Max:"), round(max(x, na.rm = TRUE), 2) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::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) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("calendar"), "date" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), min(x, na.rm = TRUE) + datamods:::i18n("Min:"), min(x, na.rm = TRUE) ), tags$div( - i18n("Max:"), max(x, na.rm = TRUE) + datamods:::i18n("Max:"), max(x, na.rm = TRUE) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" @@ -3224,24 +3224,24 @@ describe_col_date <- function(x, with_summary = TRUE) { describe_col_datetime <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("clock"), "datetime" ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Min:"), min(x, na.rm = TRUE) + datamods:::i18n("Min:"), min(x, na.rm = TRUE) ), tags$div( - i18n("Max:"), max(x, na.rm = TRUE) + datamods:::i18n("Max:"), max(x, na.rm = TRUE) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" @@ -3254,21 +3254,21 @@ describe_col_datetime <- function(x, with_summary = TRUE) { describe_col_other <- function(x, with_summary = TRUE) { tags$div( - style = css(padding = "3px 0", fontSize = "x-small"), + style = htmltools::css(padding = "3px 0", fontSize = "x-small"), tags$div( - style = css(fontStyle = "italic"), + style = htmltools::css(fontStyle = "italic"), get_var_icon(x), # phosphoricons::ph("clock"), paste(class(x), collapse = ", ") ), if (with_summary) { tagList( - tags$hr(style = css(margin = "3px 0")), + tags$hr(style = htmltools::css(margin = "3px 0")), tags$div( - i18n("Unique:"), length(unique(x)) + datamods:::i18n("Unique:"), length(unique(x)) ), tags$div( - i18n("Missing:"), sum(is.na(x)) + datamods:::i18n("Missing:"), sum(is.na(x)) ), tags$div( "\u00A0" @@ -3996,7 +3996,7 @@ simple_snake <- function(data){ #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R ######## -hosted_version <- function()'v25.5.6-250516' +hosted_version <- function()'v25.5.7-250604' ########