use && for scalar comparison in messy_linelist

epiverse-trace · Feb 17, 2025 · 291ebef · 291ebef
1 parent 37ce36c
commit 291ebef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/messy_linelist.R b/R/messy_linelist.R
@@ -87,7 +87,7 @@ messy_linelist <- function(linelist, ...) {
   subclass <- character(0)
   # if linelist is a subclass of <data.frame> unclass to <data.frame> for
   # subsetting
-  if (is.data.frame(linelist) &
+  if (is.data.frame(linelist) &&
       inherits(linelist, "data.frame", which = TRUE) > 1) {
     subclass <- class(linelist)
     linelist <- as.data.frame(linelist)