From 74a7ccad41103f6c8ab60afcbd58328cec8c7549 Mon Sep 17 00:00:00 2001
From: stemangiola <mangiolastefano@gmail.com>
Date: Thu, 18 Jul 2024 15:51:28 +1000
Subject: [PATCH] fix docs

---
 DESCRIPTION   | 2 +-
 R/utilities.R | 4 ++--
 man/ggplot.Rd | 3 +++
 man/slice.Rd  | 4 ++--
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 105078b..229169b 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -49,6 +49,6 @@ Biarch: true
 biocViews: AssayDomain, Infrastructure, RNASeq, DifferentialExpression, GeneExpression, Normalization, Clustering, QualityControl, Sequencing, Transcription, Transcriptomics
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 URL: https://github.com/stemangiola/tidyseurat, https://stemangiola.github.io/tidyseurat/
 BugReports: https://github.com/stemangiola/tidyseurat/issues
diff --git a/R/utilities.R b/R/utilities.R
index 7af854e..ee03f42 100755
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -492,8 +492,8 @@ subset_tidyseurat <- function(.data, .column) {
     .column <- enquo(.column)
 
     # Check if column present
-    if (quo_names(.column) %in% colnames(.data) %>% all %>% `!`)
-        stop("nanny says: some of the .column specified",
+    if (.data |> select(!!.column) |> colnames() %in% colnames(.data) %>% all %>% `!`)
+        stop("tidyseurat says: some of the .column specified",
             " do not exist in the input data frame.")
 
     .data %>%
diff --git a/man/ggplot.Rd b/man/ggplot.Rd
index d413102..7d00abb 100644
--- a/man/ggplot.Rd
+++ b/man/ggplot.Rd
@@ -69,3 +69,6 @@ pbmc_small |>
   geom_boxplot()
 
 }
+\seealso{
+The \href{https://ggplot2-book.org/getting-started}{first steps chapter} of the online ggplot2 book.
+}
diff --git a/man/slice.Rd b/man/slice.Rd
index 51d53f7..27dcc51 100644
--- a/man/slice.Rd
+++ b/man/slice.Rd
@@ -125,8 +125,8 @@ helpers for common use cases:
 \itemize{
 \item \code{slice_head()} and \code{slice_tail()} select the first or last rows.
 \item \code{slice_sample()} randomly selects rows.
-\item \code{slice_min()} and \code{slice_max()} select rows with highest or lowest values
-of a variable.
+\item \code{slice_min()} and \code{slice_max()} select rows with the smallest or largest
+values of a variable.
 }
 
 If \code{.data} is a \link[dplyr]{grouped_df}, the operation will be performed on each group,