From bf8813acf417fd025cdd142369e9d2ade2edf8a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 29 May 2024 12:21:48 +0200
Subject: [PATCH] Avoid ::: in @examplesIf condition

---
 R/nanoparquet.R      | 3 +--
 man/write_parquet.Rd | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/R/nanoparquet.R b/R/nanoparquet.R
index 61cec18..78fd43e 100644
--- a/R/nanoparquet.R
+++ b/R/nanoparquet.R
@@ -430,11 +430,10 @@ parquet_columns <- function(file) {
 #'
 #' @export
 #' @seealso [parquet_metadata()], [read_parquet()].
-#' @examplesIf !nanoparquet:::is_rcmd_check()
+#' @examplesIf FALSE
 #' # add row names as a column, because `write_parquet()` ignores them.
 #' mtcars2 <- cbind(name = rownames(mtcars), mtcars)
 #' write_parquet(mtcars2, "mtcars.parquet")
-#' \dontshow{if (!nanoparquet:::is_rcmd_check()) unlink("mtcars.parquet")}
 
 write_parquet <- function(
 	x,
diff --git a/man/write_parquet.Rd b/man/write_parquet.Rd
index c9c8e5c..a7a8e62 100644
--- a/man/write_parquet.Rd
+++ b/man/write_parquet.Rd
@@ -34,11 +34,10 @@ Writes the contents of an R data frame into a Parquet file.
 \code{\link[base:Encoding]{base::enc2utf8()}}. It does the same for factor levels.
 }
 \examples{
-\dontshow{if (!nanoparquet:::is_rcmd_check()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
+\dontshow{if (FALSE) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 # add row names as a column, because `write_parquet()` ignores them.
 mtcars2 <- cbind(name = rownames(mtcars), mtcars)
 write_parquet(mtcars2, "mtcars.parquet")
-\dontshow{if (!nanoparquet:::is_rcmd_check()) unlink("mtcars.parquet")}
 \dontshow{\}) # examplesIf}
 }
 \seealso{