diff --git a/R/textMetadata.R b/R/textMetadata.R
index bc07be0..32d8d12 100644
--- a/R/textMetadata.R
+++ b/R/textMetadata.R
@@ -43,7 +43,7 @@
     if(is.null(res)) {
       res <- tibble(errors="API request failed")
     } else {
-      if ("document" %in% names(res) & "fields" %in% names(res$document)) {
+      if ("document" %in% names(res) & "fields" %in% names(res$document) && length(res$document$fields) > 0) {
         res <- as_tibble(res$document$fields) %>%
           select(key, value) %>%
           tidyr::pivot_wider(names_from = key, values_from = value, names_repair = "unique") %>%