Comment the lines that produces error

ropensci · Nov 6, 2020 · 6f09ee0 · 6f09ee0
1 parent 775c75c
commit 6f09ee0
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/R/tidy-set.R b/R/tidy-set.R
@@ -79,10 +79,9 @@ tidySet.data.frame <- function(relations) {
 #' names(B) <- letters[3:7]
 #' relations <- list(A, B)
 #' tidySet(relations)
-#' \donttest{
-#' x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
-#' a <- tidySet(x) # Only characters or factors are allowed as elements.
-#' }
+#' # Will error
+#' # x <- list("A" = letters[1:5], "B" = LETTERS[3:7], "c" = runif(5))
+#' # a <- tidySet(x) # Only characters or factors are allowed as elements.
 tidySet.list <- function(relations) {
 
     char <- vapply(relations, is.character, logical(1L))

diff --git a/man/tidySet.Rd b/man/tidySet.Rd