From 5d2228b892de5edee6d8e0fb94d28965897f55b9 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 28 Nov 2024 21:11:44 +0100
Subject: [PATCH] fixed loading NULL

---
 R/shiny_webResearch.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/shiny_webResearch.R b/R/shiny_webResearch.R
index 1ca928c..888c007 100644
--- a/R/shiny_webResearch.R
+++ b/R/shiny_webResearch.R
@@ -18,7 +18,11 @@ shiny_webResearch <- function(data = NULL, ...) {
   }
 
   G <- .GlobalEnv
-  assign("webResearch_data", data, envir = G)
+
+
+  if (!is.null(data) && is.data.frame(data)) {
+    assign("webResearch_data", data, envir = G)
+  }
   a <- shiny::runApp(appDir = appDir, ...)
   return(invisible(a))
 }