diff --git a/pkgdown.yml b/pkgdown.yml index db5d6fe1..36c9f3ba 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-13T14:21Z +last_built: 2025-03-12T17:44Z 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 43c4753e..abaeeec2 100644 --- a/reference/data-correlations.html +++ b/reference/data-correlations.html @@ -1,5 +1,7 @@ -Data correlations evaluation module — data-correlations • freesearcheR +Data correlations evaluation module — data-correlations • freesearcheR Skip to contents @@ -31,19 +33,24 @@

Data correlations evaluation module

- Source: R/correlations-module.R + Source: R/correlations-module.R, R/data_plots.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_correlations_server(id, data, include.class = NULL, cutoff = 0.7, ...) + +data_visuals_ui(id, tab_title = "Plots", ...) + +data_visuals_server(id, data, ...)
@@ -55,7 +62,7 @@
...
-

arguments passed to toastui::datagrid

+

ignored

data
@@ -73,6 +80,8 @@

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 42a8c688..b448f5f8 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 65f94a5a..42a8c688 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 b448f5f8..65f94a5a 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 d8a1a364..741d6b56 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 98e6907a..0f0df975 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 6e51c2c9..d8a1a364 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 0f0df975..98e6907a 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 4d684134..6e51c2c9 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 e251fb61..68e42dee 100644 --- a/reference/data-plots.html +++ b/reference/data-plots.html @@ -1,19 +1,17 @@ -Data correlations evaluation module — data-plots • freesearcheRPlot nice ridge plot — data-plots • freesearcheR +Readying data for sankey plot +Beautiful sankey plot with option to split by a tertiary group"> Skip to contents @@ -44,63 +42,46 @@ Beatiful violin plot">
-

Data correlations evaluation module

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

Plot nice ridge plot

+ Source: R/data_plots.R, R/plot_sankey.R
data-plots.Rd
-

Data correlations evaluation module

+

Plot nice ridge plot

Wrapper to create plot based on provided type

Nice horizontal stacked bars (Grotta bars)

-

Plot nice ridge plot

+

Beatiful violin plot

+

Beautiful violin plot

Readying data for sankey plot

Beautiful sankey plot with option to split by a tertiary group

-

Beautiful violin plot

-

Beatiful violin plot

Usage

- 
data_visuals_ui(id, tab_title = "Plots", ...)
-
-data_visuals_server(id, data, ...)
+    
plot_ridge(data, x, y, z = NULL, ...)
 
 create_plot(data, type, x, y, z = NULL, ...)
 
 plot_hbars(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_violin(data, x, y, z = NULL)
 
 plot_scatter(data, x, y, z = NULL)
 
-plot_violin(data, x, y, z = NULL)

+sankey_ready(data, x, y, numbers = "count", ...)
+
+plot_sankey(data, x, y, z = NULL, color.group = "x", colors = NULL)

Arguments

-
id
-

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

- - -
...
-

ignored for now

- - -
data
+
data

data.frame

-
type
-

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

- -
x

primary variable

@@ -112,37 +93,33 @@ Beatiful violin plot">
z

tertiary variable

+ +
...
+

ignored for now

+ + +
type
+

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

+

Value

-

Shiny ui module

-

shiny server module

+

ggplot2 object

+

ggplot2 object

ggplot2 object

ggplot2 object

ggplot2 object

data.frame

-

ggplot2 object

-

ggplot2 object

ggplot2 object

Examples

- 
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 |>
+    
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
@@ -155,6 +132,44 @@ Beatiful violin plot">
 #> ℹ 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
@@ -222,56 +237,10 @@ Beatiful violin plot">
 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")
+ds |> plot_sankey("first", "last", color.group = "y")
 
-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()`).
+ds |> plot_sankey("first", "last", z = "g", color.group = "y")
diff --git a/reference/data_visuals_server.html b/reference/data_visuals_server.html index e071c920..4a171036 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 e071c920..4a171036 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 345c199d..3470d7aa 100644 --- a/reference/getfun.html +++ b/reference/getfun.html @@ -132,7 +132,7 @@ #> z$qr <- NULL #> z #> } -#> <bytecode: 0x55a1eab2ea28> +#> <bytecode: 0x5645c3677098> #> <environment: namespace:stats>
diff --git a/reference/import-file.html b/reference/import-file.html index df8278b0..108c4e63 100644 --- a/reference/import-file.html +++ b/reference/import-file.html @@ -43,7 +43,7 @@

Usage

import_file_ui(
   id,
-  title = "",
+  title = TRUE,
   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 612a2e61..f9b4c8de 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -130,16 +130,16 @@
         
Extended cutting function

       

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

         
Data correlations evaluation module

       

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

-        
Data correlations evaluation module

+        
Plot nice ridge plot

       

 
           data_summary_ui() data_summary_server()
diff --git a/reference/plot_euler-1.png b/reference/plot_euler-1.png
index dcd53eaa..7e6968ac 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 8cf7225b..8a3be5b2 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 dae8f2e9..3cfda33c 100644
--- a/reference/plot_euler.html
+++ b/reference/plot_euler.html
@@ -83,9 +83,7 @@
 ) |> plot_euler("A", c("B", "C"), "D", seed = 4)
 
 mtcars |> plot_euler("vs", "am", seed = 1)
-#> [[1]]
 
-#>