diff --git a/pkgdown.yml b/pkgdown.yml index 36c9f3b..4752def 100644 --- a/pkgdown.yml +++ b/pkgdown.yml @@ -2,7 +2,7 @@ pandoc: 3.1.11 pkgdown: 2.1.1 pkgdown_sha: ~ articles: {} -last_built: 2025-03-12T17:44Z +last_built: 2025-03-13T12:02Z urls: reference: https://agdamsbo.github.io/freesearcheR/reference article: https://agdamsbo.github.io/freesearcheR/articles diff --git a/reference/data-correlations.html b/reference/data-correlations.html index abaeeec..43c4753 100644 --- a/reference/data-correlations.html +++ b/reference/data-correlations.html @@ -1,7 +1,5 @@ -Data correlations evaluation module — data-correlations • freesearcheR +Data correlations evaluation module — data-correlations • freesearcheR Skip to contents @@ -33,24 +31,19 @@ Data correlations evaluation module">

Data correlations evaluation module

- Source: R/correlations-module.R, R/data_plots.R + Source: R/correlations-module.R
data-correlations.Rd

Data correlations evaluation module

-

Data correlations evaluation module

Usage

data_correlations_ui(id, ...)
 
-data_correlations_server(id, data, include.class = NULL, cutoff = 0.7, ...)
-
-data_visuals_ui(id, tab_title = "Plots", ...)
-
-data_visuals_server(id, data, ...)
+data_correlations_server(id, data, include.class = NULL, cutoff = 0.7, ...)
@@ -62,7 +55,7 @@ Data correlations evaluation module">
...
-

ignored

+

arguments passed to toastui::datagrid

data
@@ -80,8 +73,6 @@ Data correlations evaluation module">

Value

Shiny ui module

-

shiny server module

-

Shiny ui module

shiny server module

diff --git a/reference/data-plots-1.png b/reference/data-plots-1.png index b448f5f..42a8c68 100644 Binary files a/reference/data-plots-1.png and b/reference/data-plots-1.png differ diff --git a/reference/data-plots-2.png b/reference/data-plots-2.png index 42a8c68..65f94a5 100644 Binary files a/reference/data-plots-2.png and b/reference/data-plots-2.png differ diff --git a/reference/data-plots-3.png b/reference/data-plots-3.png index 65f94a5..b448f5f 100644 Binary files a/reference/data-plots-3.png and b/reference/data-plots-3.png differ diff --git a/reference/data-plots-4.png b/reference/data-plots-4.png index 741d6b5..d8a1a36 100644 Binary files a/reference/data-plots-4.png and b/reference/data-plots-4.png differ diff --git a/reference/data-plots-5.png b/reference/data-plots-5.png index 0f0df97..98e6907 100644 Binary files a/reference/data-plots-5.png and b/reference/data-plots-5.png differ diff --git a/reference/data-plots-6.png b/reference/data-plots-6.png index d8a1a36..6e51c2c 100644 Binary files a/reference/data-plots-6.png and b/reference/data-plots-6.png differ diff --git a/reference/data-plots-7.png b/reference/data-plots-7.png index 98e6907..0f0df97 100644 Binary files a/reference/data-plots-7.png and b/reference/data-plots-7.png differ diff --git a/reference/data-plots-8.png b/reference/data-plots-8.png index 6e51c2c..4d68413 100644 Binary files a/reference/data-plots-8.png and b/reference/data-plots-8.png differ diff --git a/reference/data-plots.html b/reference/data-plots.html index 68e42de..e251fb6 100644 --- a/reference/data-plots.html +++ b/reference/data-plots.html @@ -1,17 +1,19 @@ -Plot nice ridge plot — data-plots • freesearcheRData correlations evaluation module — data-plots • freesearcheR +Beautiful sankey plot with option to split by a tertiary group +Beautiful violin plot +Beatiful violin plot"> Skip to contents @@ -42,46 +44,63 @@ Beautiful sankey plot with option to split by a tertiary group">
-

Plot nice ridge plot

- Source: R/data_plots.R, R/plot_sankey.R +

Data correlations evaluation module

+ Source: R/data_plots.R, R/plot_hbar.R, R/plot_ridge.R, and 3 more
data-plots.Rd
-

Plot nice ridge plot

+

Data correlations evaluation module

Wrapper to create plot based on provided type

Nice horizontal stacked bars (Grotta bars)

-

Beatiful violin plot

-

Beautiful violin plot

+

Plot nice ridge plot

Readying data for sankey plot

Beautiful sankey plot with option to split by a tertiary group

+

Beautiful violin plot

+

Beatiful violin plot

Usage

- 
plot_ridge(data, x, y, z = NULL, ...)
+    
data_visuals_ui(id, tab_title = "Plots", ...)
+
+data_visuals_server(id, data, ...)
 
 create_plot(data, type, x, y, z = NULL, ...)
 
 plot_hbars(data, x, y, z = NULL)
 
-plot_violin(data, x, y, z = NULL)
-
-plot_scatter(data, x, y, z = NULL)
+plot_ridge(data, x, y, z = NULL, ...)
 
 sankey_ready(data, x, y, numbers = "count", ...)
 
-plot_sankey(data, x, y, z = NULL, color.group = "x", colors = NULL)

+plot_sankey(data, x, y, z = NULL, color.group = "x", colors = NULL)
+
+plot_scatter(data, x, y, z = NULL)
+
+plot_violin(data, x, y, z = NULL)

Arguments

-
data
+
id
+

Module id. (Use 'ns("id")')

+ + +
...
+

ignored for now

+ + +
data

data.frame

+
type
+

plot type (derived from possible_plots() and matches custom function)

+ +
x

primary variable

@@ -93,33 +112,37 @@ Beautiful sankey plot with option to split by a tertiary group">
z

tertiary variable

- -
...
-

ignored for now

- - -
type
-

plot type (derived from possible_plots() and matches custom function)

-

Value

-

ggplot2 object

-

ggplot2 object

+

Shiny ui module

+

shiny server module

ggplot2 object

ggplot2 object

ggplot2 object

data.frame

+

ggplot2 object

+

ggplot2 object

ggplot2 object

Examples

- 
mtcars |>
+    
create_plot(mtcars, "plot_violin", "mpg", "cyl")
+#> Error in if (!z %in% names(data)) {    z <- NULL}: argument is of length zero
+mtcars |> plot_hbars(x = "carb", y = "cyl")
+#> Scale for fill is already present.
+#> Adding another scale for fill, which will replace the existing scale.
+
+mtcars |> plot_hbars(x = "carb", y = NULL)
+#> Scale for fill is already present.
+#> Adding another scale for fill, which will replace the existing scale.
+
+mtcars |>
   default_parsing() |>
   plot_ridge(x = "mpg", y = "cyl")
 #> Picking joint bandwidth of 1.38
-
+
 mtcars |> plot_ridge(x = "mpg", y = "cyl", z = "gear")
 #> Picking joint bandwidth of 1.52
 #> Warning: The following aesthetics were dropped during statistical transformation: y and
@@ -132,44 +155,6 @@ Beautiful sankey plot with option to split by a tertiary group">
 #> ℹ Error occurred in the 1st layer.
 #> Caused by error in `compute_geom_1()`:
 #> ! `geom_density_ridges()` requires the following missing aesthetics: y.
-create_plot(mtcars, "plot_violin", "mpg", "cyl")
-#> Error in if (!z %in% names(data)) {    z <- NULL}: argument is of length zero
-mtcars |> plot_hbars(x = "carb", y = "cyl")
-#> Scale for fill is already present.
-#> Adding another scale for fill, which will replace the existing scale.
-
-mtcars |> plot_hbars(x = "carb", y = NULL)
-#> Scale for fill is already present.
-#> Adding another scale for fill, which will replace the existing scale.
-
-mtcars |> plot_violin(x = "mpg", y = "cyl", z = "gear")
-#> Warning: There was 1 warning in `summarize()`.
-#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
-#> ℹ In group 1: `cyl = 4`.
-#> Caused by warning in `stats::qt()`:
-#> ! NaNs produced
-#> Warning: There was 1 warning in `summarize()`.
-#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
-#> ℹ In group 1: `cyl = 4`.
-#> Caused by warning in `stats::qt()`:
-#> ! NaNs produced
-#> Warning: There was 1 warning in `summarize()`.
-#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
-#> ℹ In group 2: `cyl = 6`.
-#> Caused by warning in `stats::qt()`:
-#> ! NaNs produced
-#> Warning: There was 1 warning in `summarize()`.
-#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
-#> ℹ In group 2: `cyl = 6`.
-#> Caused by warning in `stats::qt()`:
-#> ! NaNs produced
-#> Warning: Groups with fewer than two datapoints have been dropped.
-#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
-#> Warning: Groups with fewer than two datapoints have been dropped.
-#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
-
-mtcars |> plot_scatter(x = "mpg", y = "wt")
-
 ds <- data.frame(g = sample(LETTERS[1:2], 100, TRUE), first = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)), last = sample(c(letters[1:4], NA), 100, TRUE, prob = c(rep(.23, 4), .08)))
 ds |> sankey_ready("first", "last")
 #> # A tibble: 19 × 7
@@ -237,10 +222,56 @@ Beautiful sankey plot with option to split by a tertiary group">
 ds <- data.frame(g = sample(LETTERS[1:2], 100, TRUE), first = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)), last = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)))
 ds |> plot_sankey("first", "last")
 #> Loading required package: ggplot2
-
+
 ds |> plot_sankey("first", "last", color.group = "y")
-
+
 ds |> plot_sankey("first", "last", z = "g", color.group = "y")
+
+mtcars |> plot_scatter(x = "mpg", y = "wt")
+
+mtcars |> plot_violin(x = "mpg", y = "cyl", z = "gear")
+#> Warning: There was 1 warning in `summarize()`.
+#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
+#> ℹ In group 1: `cyl = 4`.
+#> Caused by warning in `stats::qt()`:
+#> ! NaNs produced
+#> Warning: There was 1 warning in `summarize()`.
+#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
+#> ℹ In group 1: `cyl = 4`.
+#> Caused by warning in `stats::qt()`:
+#> ! NaNs produced
+#> Warning: There was 1 warning in `summarize()`.
+#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
+#> ℹ In group 2: `cyl = 6`.
+#> Caused by warning in `stats::qt()`:
+#> ! NaNs produced
+#> Warning: There was 1 warning in `summarize()`.
+#> ℹ In argument: `V1 = .fun(as.data.frame(pick(everything())), var)`.
+#> ℹ In group 2: `cyl = 6`.
+#> Caused by warning in `stats::qt()`:
+#> ! NaNs produced
+#> Warning: Groups with fewer than two datapoints have been dropped.
+#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
+#> Warning: Groups with fewer than two datapoints have been dropped.
+#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
+#> Warning: Groups with fewer than two datapoints have been dropped.
+#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
+#> Warning: Groups with fewer than two datapoints have been dropped.
+#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
+#> Warning: Removed 2 rows containing non-finite outside the scale range
+#> (`stat_ydensity()`).
+#> Warning: Groups with fewer than two datapoints have been dropped.
+#> ℹ Set `drop = FALSE` to consider such groups for position adjustment purposes.
+#> Warning: Removed 1 row containing missing values or values outside the scale range
+#> (`geom_point()`).
+#> Warning: Removed 4 rows containing non-finite outside the scale range
+#> (`stat_ydensity()`).
+#> Warning: Removed 1 row containing missing values or values outside the scale range
+#> (`geom_point()`).
+#> Warning: Removed 1 row containing non-finite outside the scale range
+#> (`stat_ydensity()`).
+#> Warning: Removed 1 row containing missing values or values outside the scale range
+#> (`geom_point()`).
diff --git a/reference/data_visuals_server.html b/reference/data_visuals_server.html index 4a17103..e071c92 100644 --- a/reference/data_visuals_server.html +++ b/reference/data_visuals_server.html @@ -1,8 +1,8 @@ - + - + diff --git a/reference/data_visuals_ui.html b/reference/data_visuals_ui.html index 4a17103..e071c92 100644 --- a/reference/data_visuals_ui.html +++ b/reference/data_visuals_ui.html @@ -1,8 +1,8 @@ - + - + diff --git a/reference/getfun.html b/reference/getfun.html index 3470d7a..f01ba3e 100644 --- a/reference/getfun.html +++ b/reference/getfun.html @@ -132,7 +132,7 @@ #> z$qr <- NULL #> z #> } -#> <bytecode: 0x5645c3677098> +#> <bytecode: 0x5594c5acb948> #> <environment: namespace:stats>
diff --git a/reference/import-file.html b/reference/import-file.html index 108c4e6..df8278b 100644 --- a/reference/import-file.html +++ b/reference/import-file.html @@ -43,7 +43,7 @@

Usage

import_file_ui(
   id,
-  title = TRUE,
+  title = "",
   preview_data = TRUE,
   file_extensions = c(".csv", ".txt", ".xls", ".xlsx", ".rds", ".fst", ".sas7bdat",
     ".sav"),
diff --git a/reference/index.html b/reference/index.html
index f9b4c8d..612a2e6 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -130,16 +130,16 @@
         
Extended cutting function

       

 
-          data_correlations_ui() data_correlations_server() data_visuals_ui() data_visuals_server()
+          data_correlations_ui() data_correlations_server()
 
         

         
Data correlations evaluation module

       

 
-          plot_ridge() create_plot() plot_hbars() plot_violin() plot_scatter() sankey_ready() plot_sankey()
+          data_visuals_ui() data_visuals_server() create_plot() plot_hbars() plot_ridge() sankey_ready() plot_sankey() plot_scatter() plot_violin()
 
         

-        
Plot nice ridge plot

+        
Data correlations evaluation module

       

 
           data_summary_ui() data_summary_server()
diff --git a/reference/plot_euler-1.png b/reference/plot_euler-1.png
index 7e6968a..dcd53ea 100644
Binary files a/reference/plot_euler-1.png and b/reference/plot_euler-1.png differ
diff --git a/reference/plot_euler-2.png b/reference/plot_euler-2.png
index 8a3be5b..8cf7225 100644
Binary files a/reference/plot_euler-2.png and b/reference/plot_euler-2.png differ
diff --git a/reference/plot_euler.html b/reference/plot_euler.html
index 3cfda33..dae8f2e 100644
--- a/reference/plot_euler.html
+++ b/reference/plot_euler.html
@@ -83,7 +83,9 @@
 ) |> plot_euler("A", c("B", "C"), "D", seed = 4)
 
 mtcars |> plot_euler("vs", "am", seed = 1)
+#> [[1]]
 
+#>