testing parse_data_name again

noaa-nwfsc · Apr 23, 2024 · 24324ea · 24324ea
1 parent f24dfb7
commit 24324ea
Showing 1 changed file with 36 additions and 36 deletions.
diff --git 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, ...) {