remove redundant test of length, too

Author: MichaelChirico

.ci/linters/rd/condition_class_docs_check.R

@@ -4,7 +4,7 @@ condition_classes_documentation_linter = function(rd_file) {
 
   # Find condition classes in R code 
   walk_r_ast_for_classes = function(expr) {
-    if (is.call(expr) && length(expr) >= 2L && identical(expr[[1L]], quote(stopf)) && is.character(class_arg <- expr[["class"]]) && startsWith(class_arg, "dt_")) {
+    if (is.call(expr) && identical(expr[[1L]], quote(stopf)) && is.character(class_arg <- expr[["class"]]) && startsWith(class_arg, "dt_")) {
       class_arg
     } else if (is.recursive(expr)) {
       unlist(lapply(expr, walk_r_ast_for_classes))