use is.character over inherits(character)

Author: MichaelChirico

R/io.R

@@ -75,7 +75,7 @@ read_utf8 <- function(path) {
     warning = function(w) w,
     error = function(e) e
   )
-  if (inherits(out, "character")) {
+  if (is.character(out)) {
     list(
       text = out,
       missing_EOF_line_break = FALSE

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(inherits(x, what = c("utf8", "character", "vertical")))
+  stopifnot(is.character(x) || inherits(x, what = c("utf8", "vertical")))
   structure(x, class = "vertical")
 }