Fixes #2311

yihui · Dec 11, 2023 · f4adf9d · f4adf9d
1 parent b037a31
commit f4adf9d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/table.R b/R/table.R
@@ -172,7 +172,10 @@ kable_caption = function(label, caption, format) {
   # create a label for bookdown if applicable
   if (is.null(label)) label = opts_current$get('label')
   if (is.null(label)) label = NA
-  if (!is.null(caption) && !is.na(caption) && !is.na(label)) caption = paste0(
+  is_na = function(v) {
+    length(v) == 0 || (length(v) == 1 && is.na(v))
+  }
+  if (!is.null(caption) && !is_na(caption) && !is_na(label)) caption = paste0(
     create_label(
       opts_knit$get('label.prefix')[['table']],
       label, latex = (format == 'latex')