ensure proper handle situation without listing

elong0527 · Apr 10, 2024 · f30e7c2 · f30e7c2
1 parent 58be0a6
commit f30e7c2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/interactive_table1.R b/R/interactive_table1.R
@@ -43,7 +43,10 @@ interactive_table1 <- function(meta,
     var_listing = var_listing,
     display_total = total
   )
-  names(tbl$listing)[is.na(names(tbl$listing))] <- "Missing"
+
+  if(! is.null(tbl$listing)){
+    names(tbl$listing)[is.na(names(tbl$listing))] <- "Missing"
+  }
 
   # Display details in reactable
   details_ggplot2 <- function(index) {