just check is.character

MichaelChirico · web-flow · commit f738c2a15643 · 2020-11-11T15:50:18.000-05:00
diff --git a/R/vertical.R b/R/vertical.R
@@ -5,7 +5,7 @@
 #' @param x A character vector or an object of class "vertical".
 #' @keywords internal
 construct_vertical <- function(x) {
-  stopifnot(is.character(x) || inherits(x, what = c("utf8", "vertical")))
+  stopifnot(is.character(x))
   structure(x, class = "vertical")
 }
 

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@`
`5`	`5`	`#' @param x A character vector or an object of class "vertical".`
`6`	`6`	`#' @keywords internal`
`7`	`7`	`construct_vertical <- function(x) {`
`8`		`- stopifnot(is.character(x) \|\| inherits(x, what = c("utf8", "vertical")))`
	`8`	`+ stopifnot(is.character(x))`
`9`	`9`	`structure(x, class = "vertical")`
`10`	`10`	`}`
`11`	`11`