From c2fa49e914cabdbf585277e38df9d43df148d892 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Wed, 19 Nov 2025 11:22:47 +0100
Subject: [PATCH] examples updated

---
 R/visual_summary.R         | 28 ++++++++++++++--------------
 man/data_summary_gather.Rd |  2 +-
 man/visual-summary.Rd      | 26 +++++++++++++-------------
 3 files changed, 28 insertions(+), 28 deletions(-)

diff --git a/R/visual_summary.R b/R/visual_summary.R
index 53e57718..c6dfbf85 100644
--- a/R/visual_summary.R
+++ b/R/visual_summary.R
@@ -101,13 +101,13 @@ modal_visual_summary <- function(id,
 #' @export
 #'
 #' @examples
-#' data_demo <- mtcars
-#' data_demo[2:4, "cyl"] <- NA
-#' rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
-#' data_demo |> missings_apex_plot()
-#' mtcars |> missings_apex_plot(animation = TRUE)
+#' # data_demo <- mtcars
+#' # data_demo[2:4, "cyl"] <- NA
+#' # rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
+#' # data_demo |> missings_apex_plot()
+#' # mtcars |> missings_apex_plot(animation = TRUE)
 #' # dplyr::storms |> missings_apex_plot()
-#' visdat::vis_dat(dplyr::storms)
+#' # visdat::vis_dat(dplyr::storms)
 missings_apex_plot <- function(data, animation = FALSE, ...) {
   l <- data_summary_gather(data, ...)
 
@@ -159,13 +159,13 @@ missings_apex_plot <- function(data, animation = FALSE, ...) {
 #' @export
 #'
 #' @examples
-#' data_demo <- mtcars
-#' data_demo[sample(1:32, 10), "cyl"] <- NA
-#' data_demo[sample(1:32, 8), "vs"] <- NA
-#' visual_summary(data_demo)
-#' visual_summary(data_demo, palette.fun = scales::hue_pal())
-#' visual_summary(dplyr::storms, summary.fun = data_type)
-#' visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
+#' # data_demo <- mtcars
+#' # data_demo[sample(1:32, 10), "cyl"] <- NA
+#' # data_demo[sample(1:32, 8), "vs"] <- NA
+#' # visual_summary(data_demo)
+#' # visual_summary(data_demo, palette.fun = scales::hue_pal())
+#' # visual_summary(dplyr::storms, summary.fun = data_type)
+#' # visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
 visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...) {
   l <- data_summary_gather(data, ...)
 
@@ -217,7 +217,7 @@ visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...
 #' @export
 #'
 #' @examples
-#' mtcars |> data_summary_gather()
+#' mtcars |> data_summary_gather() |> names()
 data_summary_gather <- function(data, summary.fun = class, palette.fun = viridisLite::viridis, na.label = "NA", ...) {
   df_plot <- setNames(data, unique_short(names(data))) |>
     purrr::map_df(\(x){
diff --git a/man/data_summary_gather.Rd b/man/data_summary_gather.Rd
index 2e5c9026..3c262a51 100644
--- a/man/data_summary_gather.Rd
+++ b/man/data_summary_gather.Rd
@@ -31,5 +31,5 @@ data.frame
 Data summary for printing visual summary
 }
 \examples{
-mtcars |> data_summary_gather()
+mtcars |> data_summary_gather() |> names()
 }
diff --git a/man/visual-summary.Rd b/man/visual-summary.Rd
index 5fb317d3..c9d17add 100644
--- a/man/visual-summary.Rd
+++ b/man/visual-summary.Rd
@@ -102,18 +102,18 @@ visual_summary_demo_app <- function() {
 }
 
 visual_summary_demo_app()
-data_demo <- mtcars
-data_demo[2:4, "cyl"] <- NA
-rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
-data_demo |> missings_apex_plot()
-mtcars |> missings_apex_plot(animation = TRUE)
+# data_demo <- mtcars
+# data_demo[2:4, "cyl"] <- NA
+# rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
+# data_demo |> missings_apex_plot()
+# mtcars |> missings_apex_plot(animation = TRUE)
 # dplyr::storms |> missings_apex_plot()
-visdat::vis_dat(dplyr::storms)
-data_demo <- mtcars
-data_demo[sample(1:32, 10), "cyl"] <- NA
-data_demo[sample(1:32, 8), "vs"] <- NA
-visual_summary(data_demo)
-visual_summary(data_demo, palette.fun = scales::hue_pal())
-visual_summary(dplyr::storms, summary.fun = data_type)
-visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
+# visdat::vis_dat(dplyr::storms)
+# data_demo <- mtcars
+# data_demo[sample(1:32, 10), "cyl"] <- NA
+# data_demo[sample(1:32, 8), "vs"] <- NA
+# visual_summary(data_demo)
+# visual_summary(data_demo, palette.fun = scales::hue_pal())
+# visual_summary(dplyr::storms, summary.fun = data_type)
+# visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
 }