case for when label attr is empty

Author: m7pr

R/qenv-eval_code.R

@@ -127,3 +127,11 @@ setMethod("eval_code", signature = c("qenv.error", "ANY", "character"), function
 get_code_attr <- function(qenv, attr) {
   unlist(lapply(qenv@code, function(x) attr(x, attr)))
 }
+
+get_code_label <- function(qenv, attr) {
+  label_list <- lapply(qenv@code, function(x) attr(x, attr))
+  label_list <- lapply(label_list, function(x) if (is.null(x)) "" else x)
+  unlist(label_list)
+}
+
+

R/qenv-get_code.R

@@ -109,7 +109,7 @@ setMethod("get_code", signature = "qenv", function(object, deparse = TRUE, names
   checkmate::assert_character(labels, min.len = 1L, null.ok = TRUE)
 
   if (!is.null(labels)) {
-    code <- object@code[get_code_attr(object, "label") %in% labels]
+    code <- object@code[get_code_label(object, "label") %in% labels]
   } else {
     # Normalize in case special it is backticked
     if (!is.null(names)) {