fix note

insightsengineering · Feb 13, 2023 · 7cd04fa · 7cd04fa
1 parent d74eb7e
commit 7cd04fa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/stream_filter.R b/R/stream_filter.R
@@ -96,7 +96,7 @@ stream_filter <- function(slref = NULL, anl = NULL, filters, suffix, slref_keep
       silent = TRUE
     )
 
-    if ("try-error" %in% class(new_df)) {
+    if (is(new_df, "try-error")) {
       # failed - retain original dataset
       warning(paste("\nFilter ID=", this_filter, "was NOT applied.", msg1, "\n Error message:", new_df))
       cat(paste("\nFilter ID=", this_filter, "was NOT applied.", msg1, "\n Error message:", new_df))

diff --git a/R/utils.R b/R/utils.R
@@ -167,7 +167,7 @@ grobs2pdf <- function(grobs,
   logtext <- paste(mget(ls(pattern = "log")), collapse = "\n")
 
   ## Make the grobs
-  if (class(grobs) != "list") {
+  if (!is.list(grobs)) {
     grobs <- list(grobs)
   }
 
@@ -336,9 +336,9 @@ grob_part <- function(gplot_grob, part) {
 grob_parts <- function(gplot, parts) {
   stopifnot("gplot must inherit from class 'ggplot' or 'grob'" = inherits(gplot, c("ggplot", "grob")))
 
-  if ("ggplot" %in% class(gplot)) {
+  if (is(gplot, "ggplot")) {
     gplot_grob <- ggplotGrob(gplot)
-  } else if ("grob" %in% class(gplot)) {
+  } else if (is(gplot, "grob")) {
     gplot_grob <- gplot
   }
   ret <- lapply(parts, grob_part, gplot = gplot_grob)