From 6590b94040937e9f9c263ad2a236c3e768a7c2fc Mon Sep 17 00:00:00 2001
From: Abby Vander Linden <11965371+avanlinden@users.noreply.github.com>
Date: Thu, 22 Aug 2024 16:09:13 -0700
Subject: [PATCH] ensure reactive expression returns a data frame

---
 server.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/server.R b/server.R
index f6fb1d9..53d82ff 100644
--- a/server.R
+++ b/server.R
@@ -3,13 +3,14 @@ server <- function(input, output, session) {
   # Get data model csv and re-format for dictionary app
   # use reactive expression to get latest version of data model
   dict_table <- reactive({
-    format_dict_table(data_model_url)
+    df <- format_dict_table(data_model_url)
+    as.data.frame(df)  # Ensure the result is a data frame
   })
 
   ## Create table to display
   output$dictionary_table <- renderReactable({
     reactable(
-      dict_table,
+      dict_table(),
       groupBy = "Column",
       searchable = TRUE,
       sortable = TRUE,