From 8014bac5c7cceb4c6148258f1b0ae3ab2ba8b796 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <jeff.thompson51317@gmail.com>
Date: Thu, 18 Jan 2024 08:28:31 -0500
Subject: [PATCH] Return empty table if dependency metrics is empty

---
 R/mod_reportPreview.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/mod_reportPreview.R b/R/mod_reportPreview.R
index 65dbfa6df..a78aa7717 100644
--- a/R/mod_reportPreview.R
+++ b/R/mod_reportPreview.R
@@ -454,6 +454,9 @@ reportPreviewServer <- function(id, selected_pkg, maint_metrics, com_metrics,
     dep_table <- eventReactive(dep_metrics(), {
       req(dep_metrics())
 
+      if (nrow(dep_metrics()) == 0)
+        return(dplyr::tibble(package = character(), type = character(), version = character(), score = character()))
+      
       purrr::map_df(dep_metrics()$name, ~get_versnScore(.x, session$userData$loaded2_db(), session$userData$repo_pkgs())) %>%
       right_join(dep_metrics(), by = "name") %>%
       select(package, type, version, score) %>%