From 24324ea3f268a52297f372eec076992f75093be4 Mon Sep 17 00:00:00 2001
From: Paul-Carvalho <paul.carvalho@noaa.gov>
Date: Tue, 23 Apr 2024 13:44:36 -0700
Subject: [PATCH] testing parse_data_name again

---
 R/utils.R | 72 +++++++++++++++++++++++++++----------------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index 9a01a99f..b7e9711d 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -934,43 +934,43 @@ parse_data_name <- function(dat, type, project) {
   #' @export
   
   
-  # if (shiny::isRunning()) {
-  #   
-  #   p_set <- get_proj_settings(project)
-  #   dat <- p_set$tables[[type]]
-  #   
-  # } else { 
-  #   
-  #   if (!is.character(dat)) {
-  #     
-  #     if (type == "main") {
-  #       
-  #       dat <- deparse(substitute(dat, rlang::caller_env())) 
-  #       
-  #     } else if (type == "aux") {
-  #       
-  #       dat <- deparse(substitute(aux, rlang::caller_env())) 
-  #       
-  #     } else if (type == "grid") {
-  #       
-  #       dat <- deparse(substitute(grid, rlang::caller_env())) 
-  #       
-  #     } else if (type == "port") {
-  #       
-  #       dat <- deparse(substitute(port, rlang::caller_env())) 
-  #       
-  #     } else if (type == "spat") {
-  #       
-  #       dat <- deparse(substitute(spat, rlang::caller_env())) 
-  #       
-  #     } else if (type == "outsample") {
-  #       
-  #       dat <- deparse(substitute(outsample, rlang::caller_env())) 
-  #     }
-  #   }
-  # }
+  if (shiny::isRunning()) {
+
+    # p_set <- get_proj_settings(project)
+    # dat <- p_set$tables[[type]]
+
+  } else {
+
+    # if (!is.character(dat)) {
+    # 
+    #   if (type == "main") {
+    # 
+    #     dat <- deparse(substitute(dat, rlang::caller_env()))
+    # 
+    #   } else if (type == "aux") {
+    # 
+    #     dat <- deparse(substitute(aux, rlang::caller_env()))
+    # 
+    #   } else if (type == "grid") {
+    # 
+    #     dat <- deparse(substitute(grid, rlang::caller_env()))
+    # 
+    #   } else if (type == "port") {
+    # 
+    #     dat <- deparse(substitute(port, rlang::caller_env()))
+    # 
+    #   } else if (type == "spat") {
+    # 
+    #     dat <- deparse(substitute(spat, rlang::caller_env()))
+    # 
+    #   } else if (type == "outsample") {
+    # 
+    #     dat <- deparse(substitute(outsample, rlang::caller_env()))
+    #   }
+    # }
+  }
   
-  dat
+  dat <- "dat"
 }
 
 data_upload_helper <- function(dat, type, ...) {