Fix 0-length bug in make_label

hughjonesd · Feb 15, 2024 · 5abed6c · 5abed6c
1 parent febabca
commit 5abed6c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/aaa-utils.R b/R/aaa-utils.R
@@ -212,7 +212,9 @@ make_label <- function (ht) {
 
   has_knitr <- requireNamespace("knitr", quietly = TRUE)
   chunk_label <- if (has_knitr) knitr::opts_current$get("label") else NULL
-  if (grepl("^unnamed-chunk", chunk_label)) chunk_label <- NULL
+  if (length(chunk_label) > 0 && grepl("^unnamed-chunk", chunk_label)) {
+    chunk_label <- NULL
+  }
 
   if (is.na(lab) &&
       getOption("huxtable.autolabel", TRUE) &&